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ABSTRACT 

This  thesis  presents  a  computer  simulation  model  of  the 
direct  support  maintenance  system  In  the  brigade  area. 
Current  and  future  maintenance  doctrine  is  addressed  as 
background^  and  Is  used  as  a  basis  for  the  model.  Submodels 
to  generate  maintenance  workload^  perform  the  maintenance 
functions,  and  evaluate  attrition  of  the  maintenance  units 
are  discussed  In  detail.  A  program  listing  Is  provided  and 
complete  documentation  is  given.  Data  generated  by  the 
model  Is  used  as  an  example  of  a  potential  application. 
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I .   INTRODUCTION 

Future  combat  on  the  modern  battlefield  will  be  intense 
and  will  involve  great  expenditures  of  resources.  The  United 
States  Army  may  be  forced  to  fight  outnumbered  and 
outgunned/  and  will  therefore  have  to  depend  on  superior 
training,  technology,  tactics,  and  logistics  to  improve  its 
chance  of  victory  against  its  enemies. 

A  major  necessity,  especially  early  in  the  conflict, 
will  be  to  maintain  a  high  percentage  of  its  combat  power  in 
operation  against  the  enemy.  As  such,  inoperable  equipment 
must  be  returned  to  battle  as  quickly  as  possible.  The 
maintenance  units,  then,  will  be  a  key  factor  in  the  outcome 
of  battle. 

The  purpose  of  this  thesis  is  to  develop  a  model  of  the 
Army  maintenance  system  so  that  meaningful  analysis  can  be 
performed  concerning  its  use  in  combat. 

In  chapter  2,  the  maintenance  system  is  defined,  both  as 
It  operates  today  and  as  it  will  operate  in  the  near  future. 
Two  examples  of  previous  modelling  efforts  are  also 
discussed.  In  chapter  3,  a  brief  explanation  of  the 
maintenance  model  is  given.  A  detailed  explanation  of  the 
methodology  of  the  model  is  given  in  appendix  B.  The 
computer  program  listing  is  given  in  appendix  E,  and  the 
program  is  completely  documented  in   appendix  C.  A  sample  of 
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the  output  of  the  model  is  shown  in  appendix  D^  and  appendix 
A  gives  an  example  of  the  type  of  problem  the  model  can  help 
to  solve/  as  well  as  a  set  of  data  generated  in  a  model 
exercise. 
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I  I .       PROBLEM   DEFINITION 

A.  INTRODUCTION 

The  purpose  of  this  chapter  Is  to  explain  the  operation 
of  the  United  States  Army's  maintenance  system^  both  how  it 
works  now,  and  how  It  will  work  in  the  future.  A  clear 
understanding  of  this  system  and  the  various  factors  that 
impact  on  the  system  is  essential  if  one  is  to  build  a  model 
that  will  accurately  represent  the  maintenance  process. 

The  maintenance  system  has  been  modelled  in  the  past  and 
two  examples  of  these  modelling  attempts  are  discussed. 

Finally,  the  requirements  for  a  model  that  could  be  used 
to  analyze  the  operations  of  maintenance  units  in  combat  are 
presented. 

B.  THE  MAINTENANCE  SYSTEM  IN  THE  ARMY  TODAY 

When  the  operator  of  a  vehicle  observes  a  malfunction, 
he  reports  the  problem  to  the  organizational  maintenance 
section  In  his  company.  Virtually  all  company  sized  units 
In  the  Army  have  organic  maintenance  capability  tailored  to 
the  type  of  equipment  the  unit  has.  [l]  The  mission  of 
these  "organizational"  or  second  echelon  maintenance 
sections  Is  to  perform  scheduled  preventitive  maintenance 
and  to  make  minor  repairs  on  the  unit's  organic  equipment 
when   needed.    The   vehicle  would   be   inspected   by   these 
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personnel  to  locate  the  source  of  the  problem. 

Each  component  of  every  piece  of  equipment  in  the  Army 
inventory  is  listed  in  the  technical  manual  for  that  piece 
of  equipment.  Along  with  the  components  list  is  a 
Maintenance  Allocation  Chart/  MAC/  that  specifies  the  level 
of  maintenance  that  must  be  performed  on  the  component.  [2) 
After  locating  the  malfunctioning  part,  the  MAC  is  checked 
to  see  whose  job  it  Is  to  repair  the  vehicle. 

If  authorization  exists  for  the  job  to  be  done  at 
organizational  level/  the  necessary  parts  are  taken  from  the 
relatively  small  supply  of  parts  the  unit  has  on  hand/ 
called  its  prescribed  load  list  or  PLL/  or  they  are 
requisitioned.  The  repair  would  then  be  made  and  the 
vehicle  would  be  returned  to  service. 

If  the  repair  Is  not  authorized  to  be  performed  at 
organizational  level/  the  vehicle  would  be  assigned  a 
priority  commensurate  with  Its  Importance  to  the 
accomplishment  of  the  mission  of  the  unit/  and  would  be 
taken  to  the  next  level  of  maintenance  for  repair. 

In  the  case  of  a  divisional  unit/  "direct  support"  or 
third  echelon  maintenance  support  Is  provided  by  the 
companies  of  the  divisional  maintenance  battalion.  Each 
brigade  of  the  division  Is  supported  by  one  forward  support 
maintenance  company.  This  company  would  be  located  In  the 
brigade  support  area,  known  as  the  brigade  trains  area, 
which  Is  doctrinal ly  placed  about   25  kilometers  to  the  rear 
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of  the  forward  edge  of  the  battle  area.  [3] 

The  rest  of  the  maintenance  battalion  Including  the 
heavy  and  light  maintenance  companies  and  the  missile 
support  company  would  be  located  In  the  Division  Support 
Area,  the  DSA,  In  the  division  rear.  With  their  greater 
capabilities  and  their  more  static  situation^  they  provide 
backup  support  for  the  forward  support  companies. 

The  maintenance  battalion  also  provides  repair  parts 
(Class  IX)  support  both  for  its  own  shops  performing 
repairs^  and  for  those  of  organizational  maintenance 
activities  In  supported  units  of  the  division,  each  forward 
support  company  has  a  satellite  repair  parts  supply 
operation  that  draws  on  the  main  repair  parts  warehouse  In 
the  DSA,  and  supplies  parts  to  all  of  its  supported  units. 

When  the  vehicle  arrives  at  the  forward  support  company^ 
an  experienced  Inspector,  usually  a  staff  sergeant  performs 
a  complete  technical  Inspection  of  the  vehicle.  He  then 
orders  the  parts  necessary  for  the  repair  and  sends  i t  to  a 
crew  of  mechanics  who  will  actually  do  the  work.  Often 
repair  parts  will  not  be  Immediately  available,  or  all  the 
crews  will  be  busy.   The  job  would  then  have  to  wait. 

Waiting  jobs  are  performed  In  order  of  priority,  both  on 
the  basis  of  prioity  that  the  unit  has  assigned  to  the 
equipment,  and  on  the  priority  the  brigade  commander  has 
assigned  the  units  of  the  brigade. 

Once  again,  as  In  the  case  of  the  organizational  units, 
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the  possibility  exists  that  the  type  of  repair  needed  will 
not  be  authorized  at  the  direct  support  level  according  to 
the  maintenance  allocation  chart.  In  that  event/  the 
equipment  would  be  further  evacuated  to  the  "general 
support"  maintenance  units  at  corps  level  by  the  direct 
support  personnel . 

When  the  Item  Is  finally  repaired.  It  must  repeat  the 
steps  In  reverse  before  It  Is  returned  to  the  user  so  that 
all  Intermediate  maintenance  levels  can  complete  the  work 
orders  that  were  opened  when  the  job  was  received. 

There  Is  another  possible  fate  that  could  befall  the 
vehicle  as  It  proceeds  through  the  echelons  of  the 
maintenance  system.  At  any  level ,  direct  support  or  higher, 
an  Inspector  can  determine  that  the  piece  of  equipment  Is  so 
badly  damaged  that  It  would  cost  more  to  repair  It  than  It 
is  worth.  At  this  point,  he  will  declare  the  equipment 
uneconomical ly  repairable  and  the  owner  unit  of  the 
equipment  would  have  to  requisition  a  new  piece  of  equipment 
through  the  supply  system,  [k]  The  Item  would  then  become 

a  source  of  supply  parts  Itself  and  any  serviceable 
components  could  then  be  used  to  repair  other  Items.  This 
process  Is  called  cannibal  I zat Ion  or  substitution  and  It  is 
especially  useful  for  repair  of  Items  that  require 
Infrequently  ordered  parts  that  would  not  normally  be 
stocked  In  the  unit  PLL  or  In  the  direct  support  repair 
parts  fad  1 1  ties. 
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An  additional  element  that  must  be  considered  when  one 
discusses  maintenance  is  the  Operational  Readiness  Float 
program  of  the  division.  An  Operational  Readiness  Float, 
ORF/  is  an  item  of  equipment  that  is  maintained  by  the 
divisional  maintenance  battalion  and  is  issued  to  a  unit  to 
temporarily  replace  a  like  I  tern  that  needs  repair,  [Ul  The 
Army  Regulation  governing  ORF's  specifies  a  complicated 
formula  for  computing  the  number  of  float  items  of  each  type 
that  the  division  is  authorized  to  have  on  hand.  The 
regulation  is  also  quite  emphatic  about  the  rules  for 
Issuing  ORF's  in  regard  to  the  length  of  time  the  needed 
repair  is  anticipated  to  take.  Usually,  the  float  items  are 
maintained  In  the  DSA  by  the  heavy  and  light  maintenance 
companies. 

C.   PROBLEMS  AND  PROPOSED  CHANGES 

Several  problems  exist  in  the  system  today  that  have 
arisen  during  the  last  two  decades  as  it  became  more  and 
more  evident  that  U.S.  forces  would  fight  outnumbered  In  the 
next  conflict  in  Europe. 

First/  the  repair  parts  supply  of  the  division  is  not 
100  percent  mobile.  Since  It  is  anticipated  that  a  very 
short  preparation  time  will  be  available  before  the  next 
conflict/  the  Inability  of  the  maintenance  battalions  to 
move  their  warehouse  operations  will  impact  heavily  on  the 
availability  of  repair  parts. 
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Second/  the  fact  that  our  fighting  resources  are  very 
limited  compared  to  potential  adversaries  makes  the  rapid 
return  to  battle  of  repaired  equipment  an  absolute 
necessity.  The  delays  that  are  inherent  to  the  present 
system/  especially  In  the  area  of  transport  of  unserviceable 
equipment  to  maintenance  facilities^  totally  preclude 
meeting  this  requirement. 

The  late  classification  of  uneconomi cal 1 y  repairable 
Items  Is  a  third  problem.  Time  is  wasted  on  equipment  that 
will  not  be  returned  to  combat  and  a  source  of  repair  parts 
that  would  otherwise  be  Immediately  available^  Is  removed. 

During  the  1973  Mid  East  War,  Israeli  maintenance  units 
faced  these  and  other  problems  and  were  very  successful  in 
dealing  with  them.  In  particular  they  were  very  adept  at 
making  repairs  and  performing  classifications  much  closer  to 
the  forward  edge  of  the  battle  area  than  had  been  thought 
possible.  Direct  support  maintenance  teams  and  inspectors 
went  to  the  unserviceable  equipment  rather  than  forcing  the 
supported  units  to  bring  the  Items  to  them.  This  method  of 
employment  greatly  Improved  the  performance  of  routine 
direct  support  repairs  and  canni bal I zat ions  could  be  made 
quickly  to  maximize  the  number  of  systems  available  for 
combat. 

As  a  consequence  of  Israeli  success  In  this  area,  many 
of  their  techniques  have  been  or  will  be  adopted  for  use  by 
the  U.S.  Army,    and  the  organizational  changes   proposed  In 
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the  Division  85   study   are  reflective  of   this  change  of 
philosophy.  Cs] 

To  Implement  this  "fix  forward"  concept  In  the  U.S. 
Army^  major  changes  were  made  to  the  force  structure  at  the 
direct  support  level.  The  forward  support  company  that  was 
previously  only  under  the  operational  control  of  the  brigade 
commander  will  become  organic  to  the  brigade  as  part  of  a 
new  Brigade  Support  Battalion.  Included  In  this  battalion  as 
augmentation  to  the  forward  support  company^  will  be  several 
new  teams  called  Tank  Systems  Support  Teams  and  Infantry 
Systems  Support  Teams.  Each  team  will  provide  direct 
support  maintenance  as  far  forward  as  possible  with  the 
former  supporting  the  armor  battalions  and  the  latter 
supporting  the  mechanized  Infantry  battalions  of  the  brigade 
task  force.  Each  team  will  be  co-located  with  the 
organizational  maintenance  elements  of  the  battalion  to  do 
as  much  direct  support  work  as  possible  as  close  to  the 
battle  as  possible.  Since  these  teams  have  very  limited 
repair  parts  storage  capabilities^  canni bal i zat Ion  will  be  a 
major  source  of  supply  of  repair  parts  for  the  operation  of 
these  teams. 

D.   THE  NEED  FOR  FURTHER  ANALYSIS 

A  major  tradeoff  has  been  made  by  moving  maintenance 
elements  forward^  that  is  trading  surivabillty  for 
responsiveness.   For   a  conflict  of  short  duration^  fixing 
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forward  might  be  a  better  way  to  proceed.  If  the  conflict 
continues  over  a  longer  period^  the  Increased  vulnerability 
of  these  forward  maintenance  elements  could  result  In  higher 
casualties  among  maintenance  personnel  and^  consequently^  a 
degradation  of  the  maintenance  capabilities  in  the  brigade 
and  the  division.  A  need  therefore  exists  for  analysis  to 
gain  Insight  into  the  ramifications  of  this  tradeoff. 

While  the  organizational  structure  of  the  direct 
support  maintenance  units  of  the  future  has  been  specified 
completely  In  the  Div  86  report/  the  tactics  that  they  will 
use,  and  the  location  of  these  elements  on  the  battle  field 
have  not  been  specifically  defined.  In  fact,  the  guidance 
that  has  been  given  on  this  subject  is  quite  nebulous.  For 
example,  the  Operations  field  manual,  FM  100-5,  says  the 
following: 


"...Forward  support  maintenance  companies  extend 
their  support  to  combat  units  by  sending  contact 
teams  to  work  with  them.  Normally  more  than  half 
of  the  repairmen  of  the  company  will  be  out 
working  in  the  combat  area.  People,  parts,  and 
tools  are  pushed  forward  Into  that  forward  support 
area  when  needed;  when  no  longer  needed  they  are 
pulled  back.  Supervised  battlefield 
cannibal  I zat Ion  may  be  used  when  the  parts  are  not 
available  from  the  supply  system,  and  an  item  of 
equipment  can  be  repaired  using  parts  from  other 
unserviceable  equipment..."  [%} 


Another  example  of  the  guidance  that   has  been  given 
concerning   the  implementation  of  the   fix  forward  concept 
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comes  from  the  Operational  Concept  document  for  the  Division 
Support  Command  organization  specified  in  the  DIv  86  study^ 
prepared  by  the  U.S.  Army  Logistics  Center: 

"...The  Forward  Maintenance  Company  establishes  a 
base  operation  in  the  brigade  trains  and  sends 
teams  forward  to  provide  close-in  support 
consistent  with  tactical  limitations..."  Ij] 

Perhaps  the  guidance  was  made  very  general  so  that  the 
flexibility  of  the  brigade  commander  would  not  be  impaired. 
Insight  into  the  system^  however^  would  be  extremely 
valuable  in  assisting  commanders  In  using  their  maintenance 
assets  In  the  most  efficient  and  effective  manner  possible. 

E.   EXAMPLES  OF  PREVIOUS  MODELLING  EFFORTS 

The  modelling  of  the  combat  maintenance  process  has  been 
very  limited  In  the  defense  modelling  community.  Usually 
the  models  were  used  to  do  one  specific  study  and  there  is 
not  the  proliferation  of  models  at  different  levels  that  one 
finds  In  the  modelling  of  the  combat  functions. 

An  example  of  such  a  model  Is  the  Balanced  Forces  or 
BALFOR  model  developed  by  the  U.S.  Army  Concepts  Analysis 
Agency,  CAA.  [8l  This  model  was  developed  to  examine  the 
Impact  on  the  combat  service  support  system  of  Increasing 
and  decreasing  the  levels  of  preposl tloned  war  reserves  in 
the  European  Theatre.  BALFOR  considers  all  combat  service 
support  functions  and  does  not   limit  Itself  to  maintenance. 
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Personnel  replacement/  medical  evacuatfon^  and  supply  of 
ammunition  and  fuel  were  also  considered  In  the  model. 
BALFOR  was  made  to  be  compatible  with  several  other  CAA 
model S/  such  as  the  CEM  model/  so  that  outputs  from  these 
models  could  be  used  as  sources  of  Input  data  to  BALFOR. 
This  model  Is  deterministic  and  extremely  fast  running/  and 
plays  the  entire  theatre  combat  service  support  system. 

As  a  tool  for  analyzing  the  new  maintenance  structure 
however/  BALFOR  has  some  serious  shortcomings.  It  does  not 
play  nonavailability  of  parts,  which  Is  a  significant  factor 
In  determining  the  time  that  an  Item  will  be  Inoperable. 
BALFOR  also  has  the  underlying  assumption  that  there  will  be 
no  attrition  or  interdiction  of  the  maintenance  elements. 
AS  such/  it  Is  useless  as  an  analysis  tool  for  examining  the 
new  force  structure. 

A  more  general  model  of  combat  maintenance  is  the 
Maintenance  Support  Concepts/  MASC/  model  developed  for  the 
U.S.  Army  Logistics  Center  by  Braddock/  Dunn,  and  McDonald. 
[97  This  model  Is  the  most  well  known  today  for  analyzing 
maintenance  operations.  Originally/  It  was  used  to  evaluate 
Operational  Readiness  Float  policies. 

MASC  Is  a  theatre  level  model  which  explicitly  plays 
all  theatre  maintenance  units  In  detail,  it  Is  a  stochastic 
simulation.  Input  parameters  were  supplied  to  the  designers 
by  the  U.S.  Army  Ordnance  Center  and  School.  These  inputs 
included  probability  of  correct  diagnosis  and  repair/  out  of 
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stock  probabilities/  repair  time  dl str i but ions^  waiting 
parts  times  distributions/  float  size  and  distributions/  and 
rates  at  which  vehicles  are  rendered  uneconomi cal 1 y 
repairable. 

A  sensitivity  analysis  of  factors  In  the  simulation 
showed  that  the  factor  that  most  significantly  affected  the 
outcome  was  the  failure  rate  of  the  Items,  followed  by  out 
of  stock  probabilities/  washout  rate/  waiting  parts  time/ 
and  the  maintenance  float  policy.  This  result  Is  Intuitively 
appeal Ing. 

The  MASC  model  seems  to  represent  the  maintenance 
functions  very  well/  but/  like  the  BALFOR  model/  It  falls  to 
portray  attrition  and  Interdiction  of  the  maintenance  units 
at  all.  AlsO/  the  proponents  of  the  model  admit  that  the 
model  Is  very  scenario  dependent  and  that  only  one  scenario 
was  played. 

In  order  to  evaluate  the  new  force  structure  and 
tactics  proposed  for  maintenance  elements  on  the  modern 
battlefield/  MASC  would  have  to  be  extended  considerably. 

F.  REQUIREMENTS  FOR  MODELLING  THE  MAINTENANCE  SYSTEM  IN 
COMBAT 

It  Is  evident  that  past  efforts  In  modelling 
maintenance  In  combat  have  done  a  credible  job  In 
representing  the  maintenance  functions/  but  they  have  been 
woefully   Inadequate    In   portraying   the   various   combat 
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functions  that  impact  on  the  performance  of  the  maintenance 
mission.  In  the  past/  this  approach  might  have  been 
satisfactory  In  that  combat  service  support  units  were 
doctrinal ly  located  a  substantial  distance  from  the 
fighting,  NoW/  however,  with  the  maintenance  units  closer 
to  the  combat,  their  mission  performance  will  be 
significantly  affected  by  combat  activities.  Consequently, 
for  any  model  to  be  a  useful  tool  for  performing  analyses 
regarding  the  maintenance  system,  it  must  take  Into 
consideration  these  previously  unconsidered  factors. 

There  are  three  major  areas  of  concern  that  must  be 
included  In  modelling  maintenance  in  combat.  The  first  Is 
the  Input  to  the  system.  Both  the  number  of  jobs  to  be 
performed  and  the  rate  they  enter  the  system  must  be 
represented  as  accurately  as  possible. 

Next,  the  actual  maintenance  functions  must  be 
portrayed.  All  the  Inspections,  repairs,  evacuations,  and 
cannibal izat ions  take  time  and  use  up  resources.  In  order 
to  evaluate  how  the  performance  of  the  actual  maintenance 
tasks  is  affected  by  other  factors,  they  must  be  represented 
In  considerable  detail. 

Finally,  the  effect  of  the  combat  situation  on  the 
maintenance  units  must  be  considered.  When  a  maintenance 
unit  is  attacked,  its  capability  to  perform  Its  mission  Is 
at  least  disrupted  temporarily  and  may  be  degraded 
permanently.   Frequently,  moves  to  alternate  positions  must 
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be  made  to  Improve  responsiveness  or  to  reduce 
vulnerability.  These  moves  also  use  time  that  cannot  be 
spent  repairing  equipment. 

A  model  that  could  consider  these  factors  would 
unquestionably  be  an  asset  in  doing  analyses  concerning  the 
maintenance  system  in  the  brigade. 


23 


III.   MODEL  DESCRIPTION 

A.   INTRODUCTION 

In  this  chapter/  a  model  that  has  been  designed  as  an 
attempt  to  meet  the  requirements  of  modelling  the  direct 
support  maintenance  system  in  a  combat  environment  is 
presented  and  discussed  in  general  terms.  A  more  detailed 
model  description  including  a  brief  explanation  of  the 
SIMSCRIPT  11.5  programming  language  Is  presented  in  appendix 
B. 

The  maintenance  model  presented  here  is  a  stochastic^ 
discrete  event  simulation  implemented  in  the  SIMSCRIPT  11.5 
programming  language,  [id]  The  system  modelled  Is  the 
direct  support  maintenance  system  in  the  brigade  area.  The 
structure  of  the  maintenance  units  was  taken  from  the  DIV  86 
study  Table  of  Organization  and  Equipment  for  the  Brigade 
Support  Battalion.  The  actual  distribution  of  personnel^ 
however.  Is  quite  flexible  in  that  the  user  specifies  the 
types  and  numbers  of  repairmen  In  each  maintenance  unit. 

The  model  only  considers  repair  of  damaged  tanks  and 
armored  personnel  carriers  because  they  have  the  greatest 
effect  on  the  outcome  of  the  battle.  The  damage  sustained 
by  these  vehicles  can  be  categorized  as  either  firepower 
damage  or  mobility  damage.  The  amount  of  damage  in  each 
category  is  expressed  In  terms  of  a  proportion.   This  scheme 
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for  quantifying  firepower  and  mobility  damage  was  chosen  in 
an  attempt  to  be  consistant  with  the  damage  determination  in 
high  resolution  combat  simulations. 

There  are  two  scenario  options  that  can  be  chosen  by  the 
user.  The  first  portrays  the  trading  of  space  for  time  by 
the  blue  defender.  The  brigade  is  divided  into  two  teams 
that  alternately  drop  back  to  defend  a  succession  of 
defensive  positions.  The  second  portrays  the  brigade  In  a 
stand  and  fight  posture.  These  scenarios  were  chosen  as 
ones  that  would  put  the  most  stress  on  the  maintenance 
system.  The  simulation  ends  when  the  blue  force  level  Is 
reduced  to  25%  of  Its  original  force  level.  When  this 
condition  is  met,  the  program  terminates  and  the  results  are 
output. 

B.   GENERATING  THE  WORKLOAD 

The  first  major  submodel  is  concerned  with  producing 
damaged  vehicles  for  the  maintenance  system  to  repair.  This 
battlefield  recovery  model,  entitled  the  Parametric  Analysis 
of  Recovery  and  Evacuation  of  Tracked  vehicles  model,  PARET, 
was  developed  by  MAJ  A.F.Affeldt  to  analyze  battlefield 
recovery  tactics  and  to  determine  the  heavy  equipment 
transport  requirements  for  a  maneuver  brigade,  [llj 

The  PARET  model  plays  a  series  of  battles  corresponding 
to  the  succession  of  red  echelons  attacking  the  defending 
blue   force.    In   each  of   these   battles,   casualties   are 
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assessed  and  the  time  necessary  to  destroy  enough  red 
systems  to  force  the  red  attackers  into  a  defensive  position 
are  calculated.  A  Lanchester  type^  homogeneous  force  combat 
model  is  used  to  make  these  computations. 

The  proportion  of  the  damaged  vehicles  for  which 
recovery  is  to  be  attempted  is  computed  as  the  ratio  of  the 
time  available  to  perform  the  recoveries^  to  the  total  time 
necessary  to  recover  all  the  damaged  blue  vehicles.  As 
recovery  is  attempted  for  each  damaged  system^  attrition  of 
the  recovery  vehicles  Is  stochastically  determined. 

As  originally  written^  the  PARET  model  did  not  consider 
system  failures  of  combat  vehicles  due  to  wear  and  tear. 
Since  this  type  of  failure  will  constitute  a  significant 
portion  of  the  workload,  they  were  included  In  this  model. 
The  assumption  of  exponentially  distributed  failure  times 
with  common  mean  time  to  failure  for  all  vehicles  Is  made, 
and  system  failures  are  scheduled  for  each  vehicle  at  the 
beginning  of  the  simulation.  Due  to  the  random  nature  of 
drawing  the  failure  times,  some  of  the  failures  occur  before 
the  end  of  the  simulation,  and  some  do  not.  During  the 
pre-battle  period,  failed  systems  are  taken  directly  to 
maintenance  after  a  short  time  delay.  Once  the  battle 
begins,  however,  the  failed  systems  that  require  recovery 
are  recovered  In  the  same  manner  as  the  combat  damaged 
vehicl es . 

Since   the  recovery   process  is   Influenced   to  a   great 
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extent  by  the  onset  of  darkness^  night  Is  represented  in  the 
model.  Several  of  the  parameter  values  are  altered  to  take 
Into  account  the  effects  that  reduced  visibility  has  on  the 
recovery  process/  and  recovery  is  thereby  Inhibited. 

As  each  successful  recovery  Is  completed^  a  job  Is 
generated  for  the  maintenance  system  and  the  attributes 
describing  the  job  are  stochastically  determined.  These 
attributes  Include  the  owning  unit/  the  workorder  number  of 
the  job/  the  firepower  and  mobility  damage  percentages,  and 
the  vehicle  type.  The  component  damage  is  then  computed  as 
a  function  of  the  overall  firepower  and  mobility  damage 
values.  These  component  damage  percentages  are  used  In  the 
maintenance  model  to  determine  if  a  vehicle  is  to  be  a 
candidate  for  cannibal izatlon. 

Once  the  job  is  completely  characterized  by  Its  assigned 
attributes.  It  enters  the  maintenance  system  at  the  forward 
support  detachment  that  Is  in  support  of  the  battalion  that 
owns  the  vehicle. 

C.   PERFORMING  THE  REPAIRS 

The  second  major  submodel  represents  the  actions 
affecting  the  vehicle  once  It  enters  the  maintenance  system 
as  a  job.  Each  job  is  modelled  explicitly  and  its  progress 
Is  monitored  through  the  system  until  It  Is  repaired  and 
returned  to  the  fighting  force.  It  is  evacuated  outside  the 
brigade  area  to  higher  levels  of   maintenance,  or  it  is  lost 
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due  to  enemy  activity  affecting  the  maintenance  unit  at 
which  it  is  located. 

As  the  job  proceeds  through  the  system^  various  actions 
are  performed  on  It.  These  actions  Include  initial 
inspection,  obtaining  repair  parts  either  through  the  supply 
system  or  through  cannl bal i zat Ion,  transport  to  higher 
levels  of  maintenance,  and  actual  repair  itself.  The  time 
that  each  action  requires  is  drawn  at  random  from  a  beta 
probability  distribution  whose  parameters  are  computed  from 
the  Input  data.  These  input  time  values  are  taken  from 
those  supplied  by  the  U.S. Army  Ordnance  Center  and  School 
for  use  In  the  MASC  model.  (l2] 

V"/hen  the  job  arrives  at  a  forward  support  detachment,  a 
determination  Is  made  as  to  whether  or  not  the  unit  has  the 
capability  to  repair  the  type  of  damage  the  vehicle  has 
sustained.  For  instance.  If  after  enemy  attack,  a 
maintenance  unit  no  longer  has  any  automotive  repairmen,  it 
could  not  repair  a  vehicle  with  mobility  damage.  If  the 
capability  does  not  exist  at  the  unit  to  perform  the 
required  repair,  the  vehicle  Is  evacuated  to  the  maintenance 
company.  Otherwise  the  vehicle  undergoes  an  Initial 
Inspection. 

Several  actions  take  place  during  the  Initial  Inspection 
of  the  vehicle.  First,  the  amount  of  damage  sustained  by 
the  vehicle  Is  evaluated  and  a  determination  Is  made  as  to 
whether  the   necessary  repairs  are   authorized  at   the  unit. 
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Next/  the  availability  of  the  repair  parts  necessary  to 
perform  the  repair  is  checked.  Needed  parts  that  are  not  on 
hand  in  unit  supply  are  either  requisitioned  or  are  obtained 
through  cannibal izat ion.  Finally^  if  the  repair  is 
authorized  and  the  necessary  parts  are  obtained^  a  search  of 
the  unit  is  made  for  a  crew  of  repairmen  to  actually  perform 
the  repair.  If  either  the  requirement  for  parts  or  a  repair 
crew  is  not  met^  the  vehicle  must  wait. 

When  the  requirements  are  met/  work  begins.  If  parts 
are  obtained  through  cannl bal I zat lon^  the  substitution  of 
parts  from  the  source  vehicles  Is  performed.  After  a  random 
repair  tlme^  the  repair  Is  accomplished  and  the  mobility  or 
firepower  damage  percentage  Is  reduced  to  zero^  depending  on 
which  type  of  damage  the  crew  Is  able  to  repair.  If  the 
vehicle  has  sustained  both  firepower  and  mobility  damage^ 
two  separate  repair  operations  must  be  performed  on  the 
vehicle. 

When  both  the  firepower  and  mobility  damage  are 
repaired/  the  vehicle  Is  returned  to  the  fighting  force. 
The  crew  that  has  completed  the  repair  then  attempts  to  find 
another  job  to  do  among  those  waiting. 

There  are  several  Instances  where  an  evacuation  of  the 
vehicle  to  a  higher  level  of  maintenance  Is  called  for. 
First/  jobs  at  forward  detachments  that  need  parts  are 
evacuated  to  the  maintenance  company  immediately.  Second/ 
jobs  that  have  sustained  greater  damage  than  the  maintenance 
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unit  can  fix  are  sent  to  higher  levels  of  maintenance. 
Third,  if  a  maintenance  unit  is  forced  to  move  to  an 
alternate  position,  vehicles  that  are  not  mobile  must  be 
evacuated.  When  a  vehicle  is  evacuated  from  the  maintenance 
company  to  the  division  support  area,  it  is  assumed  to  be 
lost  for  the  duration  of  the  simulation  and  it  is  no  longer 
considered  in  the  model. 

D.   THE  COMBAT  ENVIRONMENT 

The  third  and  final  submodel  deals  with  the  actions  of 
the  maintenance  units,  particularly  the  forward  detachments, 
as  the  result  of  enemy  activity  and  the  combat  situation. 
The  model  portrays  the  movement  of  the  detachments  to  new 
positions,  as  well  as  attack  by  the  enemy  on  the 
detachments . 

The  distance  from  the  maintenance  units  to  the  forward 
line  of  troops,  PLOT,  is  monitored  throughout  the 
simulation.  Any  time  this  distance  gets  smaller  than  a  user 
supplied  breakpoint  value,  a  move  of  the  unit  is  triggered. 
After  a  delay  that  corresponds  to  the  time  needed  for  the 
unit  to  dismantle  the  maintenance  site,  the  detachment 
displaces  to  a  new  position  at  a  user  supplied  speed. 

During  the  move,  and  during  the  time  It  takes  the  unit 
to  resume  Its  maintenance  activities,  no  jobs  are  accepted 
for  repair.  Already  accepted  jobs  that  are  mobile, 
accompany  the  unit   to  its  new  position.    Others  are  either 
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evacuated  to  the  maintenance  company  or  are  destroyed  in 
place. 

Upon  arrival  at  the  new  maintenance  site  several  actions 
take  place  before  the  maintenance  mission  begins  again. 
Jobs  that  were  supposed  to  have  been  supplied  with  repair 
parts  through  canni  bal  i  zat  ion  are  checiced  to  be  sure  the 
source  vehicles  have  also  accompanied  the  unit  on  the  move. 
If  the  source  vehicles  are  no  longer  present  and  there  are 
no  other  source  vehicles  to  supply  the  appropriate  parts^ 
these  jobs  are  evacuated  to  the  rear.  Then^  the  crews  at  the 
detachment  are  matched  with  jobs  to  do.  This  action 
constitutes  a  reorganization  of  effort  at  the  new  position. 
When  these  actions  are  accompl t shed,  repair  work  resumes. 

The  other  aspect  of  combat  that  Is  portrayed  In  this 
submodel  Is  the  attrition  of  the  maintenance  units 
themselves.  The  assumption  Is  made  In  the  model  that  the 
probability  of  detection  and  engagement  by  the  enemy  of  a 
maintenance  unit  is  related  to  how  close  the  unit  Is  to  the 
forward  line  of  troops^  and  to  how  many  vehicles  are  present 
at  the  unit. 

A  shaping  factor  that  determines  the  degree  of  effect 
the  distance  of  the  unit  to  the  PLOT  has  on  the  probability 
function  Is  Input  by  the  user  so  that  a  variety  of 
situations  can  be  examined.  For  example^  If  the  user 
desires  to  Investigate  the  case  that  the  only  detections 
that   are  made   by  the   enemy  are   visual  from   the  FLOT,   a 
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shaping  factor  would  be  selected  that  would  make  the 
probability  of  detection  very  high  over  short  distances^  but 
very  low  over  medium  or  long  distances. 

This  probability  is  evaluated  for  each  of  the  forward 
detachments  at  the  conclusion  of  each  battle  sequence. 
Whether  or  not  the  detachments  are  actually  attacked  Is 
stochastically  determined  using  this  evaluated  probability 
value. 

The  further  assumption  is  made  that  the  maintenance 
capability  of  the  unit  is  proportional  to  the  number  of 
personnel  present.  Consequently  only  the  personnel 
casualties  and  the  disruption  of  the  unit  as  the  result  of 
the  attack  are  modelled. 

The  probability  that  an  Individual  repairman  will  become 
a  casualty  during  an  attack  is  user  supplied.  Thereby^  the 
user  has  the  ability  to  determine  the  severity  of  the  attack 
expected.  V-ihether  or  not  an  individual  soldier  becomes  a 
casualty  Is  stochastically  determined  using  this  input 
probability  value.  At  the  end  of  the  attack^  a 
reorganization  takes  place^  and  as  many  crews  as  possible 
are  formed  from  the  repairmen  left  alive.  These  functioning 
crews  of  repairmen  are  then  matched  with  jobs  to  be  done, 
and  work  resumes. 

In  the  event  that  either  or  both  of  the  repair 
capabl 1 1 tieS/  firepower  or  mobility,  are  lost  by  the  unit, 
jobs   requiring  the   type  of   repair   that  the   unit  can   no 
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longer  perform  are  evacuated  to  the  rear.  Also^  any  job 
that  arrives  at  the  unit  needing  that  type  of  repair  is 
evacuated  Immediately. 

E.   OUTPUT  FROM  THE  MODEL 

The  output  generated  from  a  typical  replication  of  the 
model  is  shown  in  appendix  D.  This  output  includes  the  time 
values  for  the  various  maintenance  functions  and  the 
corresponding  beta  distribution  parameters  under  the  heading 
of  Input  Time  Parameters.  The  input  values  that  deal  with 
the  battle  and  recovery  operations/  and  the  maintenance 
system  are  also  shown.  For  the  most  part,  the  values  shown 
are  the  ones  that  were  used  to  develop  and  test  the  model. 

The  attributes  of  every  job  that  enters  the  maintenance 
system  are  listed  under  the  heading  Job  List.  The 
attributes  Include  the  workorder  number^  the  time  the 
vehicle  entered  the  maintenance  system^  the  vehicle  type, 
the  owning  unit/  whether  the  vehicle  was  damaged  In  combat 
or  was  a  system  failure/  the  mobility  and  firepower  damage 
percentages/  and  the  component  damage  percentages. 

The  results  of  each  battle  sequence  are  also  shown. 
These  include  the  results  of  enemy  attacks  on  the  forward 
detachments/  the  number  of  recovery  vehicles  killed/  and  the 
number  of  blue  and  red  systems  left. 

The  job  list  and  battle  results  are  generated  during  the 
simulation  so  that  the  process  can  be  analyzed  In  detail.   A 
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set  of  summary  statistics  is  also  generated  at  the  end  of 
each  replication/  as  well  as  a  complete  backlog  listing  of 
vehicles  at  the  various  maintenance  units  and  their  job 
status.  It  should  be  remembered  that  the  movement  of 
vehicles  through  the  maintenance  system  is  a  very  dynamic 
process,  and  this  particular  output  gives  only  an 
instantaneous  view  of  the  system.  It  is  included,  however, 
to  give  some  insight  into  the  distribution  of  the  workload 
in  the  system. 

Several  statistics  are  also  generated  that  are  measures 
of  effectiveness  for  the  system.  The  results  of  the 
recovery  operations  are  shown  as  the  numbers  of  vehicles 
recovered  and  the  number  of  vehicles  needing  recovery,  and 
the  average  of  these  values  per  battle  are  also  given.  In  a 
similar  fashion  the  results  of  the  maintenance  operations 
are  displayed.  Of  these,  the  most  important  is  average 
repair  cycle  time,  which  is  a  measure  of  how  long  a  vehicle 
remains  In  the  system  before  it  is  repaired.  Since  the 
purpose  of  the  forward  detachments  is  to  shorten  this  time, 
this  value  can  be  used  to  compare  various  employment  schemes 
for  the  detachments.  It  should  be  noted  that  the  repair 
cycle  time  is  calculated  only  for  the  vehicles  that  are 
returned  to  battle. 

In  an  attempt  to  put  the  functioning  of  the  maintenance 
system  into  the  context  of  its  effect  on  the  outcome  of  the 
battle,  the   ratio  of  red   casualties  to  blue   casualties  is 
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computed  and  displayed.  The  user  should  remember^  however^ 
that  the  combat  model  employed  In  the  maintenance  model  is 
very  simple.  As  such^  this  statistic  should  not  be 
considered  as  anything  but  an  extremely  gross  indicator. 

Finally^  as  a  measure  of  the  survivability  of  the 
maintenance  units,  the  percentage  of  repair  personnel  still 
alive  at  the  end  of  the  simulation  Is  given.  This 
percentage  includes  the  repairmen  In  the  maintenance  company 
that  were  not  exposed  to  attack. 
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IV.   CONCLUSIONS  AND  RECOMMENDATIONS 

A.   PROGRAM  PERFORMANCE 

The  maintenance  model  simulation  program  has  shown 
itself  to  be  extremely  fast  running  and  easy  to  use.  It 
compiles  in  less  than  3  minutes  of  central  processing  unit 
time^  and  it  takes  approximately  20  seconds  of  execution 
time  to  complete  one  replication  on  the  IBM  360-67  at  the 
W.R.  Church  Computer  Center  at  the  Naval  Postgraduate 
School.  The  program  uses  approximately  250  kilobytes  of 
core  storage.  Since  only  standard  data  storage  procedures 
with  no  packing  of  words  were  used^  the  model  should  be 
easily  transportable  to  any  installation  that  has  SIMSCRIPT 
I  I .5  capabi 1 1 ty. 

The  program  Is  completely  documented  in  appendix  C^  and 
instructions  for  inputing  data  are  included.  The  input 
values  shown  In  the  sample  output  in  appendix  D  are 
representative  of  the  ones  that  were  used  in  the  design  and 
testing  of  the  program. 

Appendix  A  illustrates  the  type  of  application  in  which 
the  model  could  be  used^  and  data  that  was  actually 
generated  by  the  program  is  presented.  The  distance  of  the 
forward  detachments  to  the  forward  line  of  troops  was  varied 
over  a  range  of  5  to  30  kilometers/  and  the  preliminary 
analysis   of  the   data   seems  to   indicate   that  benefit   is 
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gained  by  "fixing  forward"^  but  the  potential  for  losing 
maintenance  assets  to  hostile  action  increases  the  closer 
they  get  to  the  fighting. 

B.   RECOMMENDATIONS  FOR  FUTURE  ENHANCEMENTS 

As  is  the  case  with  all  models^  there  are  several  areas 
in  the  maintenance  model  where  improvements  in  methodology 
could  be  made. 

One  such  area  is  the  assignment  of  the  damage  attributes 
to  the  jobs  entering  the  maintenance  system.  Presently^ 
damage  is  determined  stochastically  using  the  uniform 
probability  distribution.  A  refinement  of  the  model  could 
be  made  by  ascertaining  the  distribution  of  damage  sustained 
by  the  combat  vehicles.  A  possible  approach  to  determining 
the  distributions  would  be  to  use  the  Simulation  of  Tactical 
Alternative  Responses  (STAR)  model  to  generate  data  for  this 
purpose.  [13]  STAR  has  the  capability  to  determine  the 
Impact  locations  of  shots  on  combat  vehicles  and  to  compute 
the  probabilities  of  mobility  and  firepower  damage  as  the 
result  of  the  Impact.  These  damage  probabilities  correspond 
to  the  damage  percentages  used  In  the  maintenance  model. 

Another  shortcoming  of  the  maintenance  model  In  Its 
present  form  Is  Its  inability  to  relate  the  amount  of  damage 
sustained  by  a  vehicle  to  the  time  required  to  repair  It. 

Finally^  the  attrition  model  could  be  Improved  by 
assessing  damage  to  the  vehicles  In   the  area  of  the  attack^ 
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including  the  vehicles  organic  to  the  maintenance  units. 
Attrition  of  the  maintenance  company  should  also  be 
considered  In  the  next  revision  of  the  model. 

The  structure  of  the  programming  is  very  flexible^  and 
consequently/  the  implementation  of  these  model  Improvements 
would  not  be  difficult. 
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APPENDIX  A 
MODEL  EXERCISE 

A.  INTRODUCTION 

In  this  appendix/  the  results  of  a  model  exercise  are 
shown  and  analyzed.  It  should  be  remembered  that  these 
results  are  just  an  exercise/  and  that  conclusions  cannot 
really  be  drawn  from  them  since  many  of  the  input  variable 
values  that  were  used  to  generate  the  data  were  educated 
guesses.  The  exercise  does  demonstrate  a  potential  model 
appl {cation. 

B.  EXPERIMENTAL  DESIGN 

The  analysis  technique  used  is  a  simple  one  way  analysis 
of  variance.  The  purpose  of  the  technique  is  to  determine 
if  the  mean  values  of  the  yield  variables  that  result  from 
different  treatments  differ  from  each  other  in  a  statistical 
sense. 

Only  one  of  the  input  variables  was  changed/  that  being 
the  initial  distance  from  the  forward  maintenance 
detachments  to  the  forward  line  of  troops.  Every  time  a 
detachment  moves  to  a  new  location/  the  distance  it  moves 
also  corresponds  to  this  value.  Four  distance  values  are 
used:  5,  10/  15/  and  30  kilometers.  The  30  kilometer 
distance   approximates   the   situation    in  which   all   the 
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maintenance  assets  are  located  at  the  site  of  the 
maintenance  company.  The  others  represent  utilizing  the 
"fix  forward"  concept. 

The  yield  values  are  measures  of  effectiveness  that  are 
computed  and  displayed  by  the  program.  They  are  the  repair 
cycle  time,  the  percentage  of  recovered  vehicles  repaired, 
the  percentage  of  damaged  vehicles  repaired,  and  the 
percentage  of  maintenance  personnel  alive  at  the  end  of  the 
simulation. 

C.   DATA 

The  following  data  have  been  produced  from  10 
replications  of  the  maintenance  model  for  each  of  the  k 
ranges.  The  mean  value  for  each  treatment  is  displayed  below 
the  columns.  The  significance  level  from  the  analysis  of 
variance,  which  is  the  probability  of  obtaining  the  data 
under  the  null  hypothesis  that  all  the  means  are  equal.  Is 
also  shown  for  each  set  of  data. 

To  determine  which  of  the  treatment  means  differed,  a 
studentlzed  range  test  was  performed  on  each  set  of  data. 
Mean  values  marked  with  asterisks  (*)  differed  from  ones  not 
marked  In  the  same  manner. 
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1.   Repair  Cycle  Time  Data 


Rep 

30  km 

5  km 

10  km 

15  km 

1 

k,k9 

4.17 

4.44 

3.97 

2 

3.78 

U.20 

3.97 

3.79 

3 

3.96 

3.37 

3.82 

4.16 

k 

3.71 

3.1»U 

4.22 

3.91 

5 

3.91* 

3.90 

3.99 

4.04 

6 

3.98 

3.9t* 

3.86 

4.22 

7 

U.6U 

3.U2 

4.17 

3.71 

8 

U.52 

4.09 

4.19 

3.75 

9 

3.79 

3.57 

3.76 

4.47 

10 

l|.02 

3.43 

4.27 

3.85 

mean   4.09      3.75*     4.07      3.99 
significance  level  »  0.055 

2.   Percentage  of  Recovered  Vehicles  Repaired 
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30  km 

5  km 

10  km 

15  km 

1 

.383 

.340 

.604 

.531 

2 

.414 

.405 

.632 

.349 

3 

.323 

.570 

.377 

.549 

4 

.413 

.399 

.554 

.452 

5 

.442 

.356 

.604 

.395 

6 

.607 

.436 

.489 

.422 
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7 

.603 

.230 

.5'*3 

.392 

8 

.607 

.k57 

.i*95 

,kk7 

9 

.U88 

.323 

.1*17 

.U69 

10 

.501* 

.kkS 

,kk7 

.337 

mean 

.'♦78 

.391** 

.515 

.1*35 

significance  level  =  0.0238 


3.   Percentage  of  Damaged  Vehicles  Repaired 


Rep 

30    km 

5    km 

10    km 

15    km 

1 

.279 

.221* 

.352 

.297 

2 

.216 

.276 

.21*5 

.258 

3 

.225 

.21*5 

.259 

.299 

k 

.2U2 

.21*8 

.359 

.311 

5 

.225 

.208 

.25U 

.3U1 

6 

.279 

.333 

.35U 

.331 

7 

.317 

.151 

.355 

.219 

8 

.279 

.330 

.20l| 

.255 

9 

.21*3 

.2U5 

.3t*l 

.331 

10 

.227 

.318 

.302 

.250 

mean 

.253 

.258 

.30U* 

.290 

significance  level  =  0,069 
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k.       Percentage  of  Personnel  Alive 


Rep 

30  km 

5  km 

10  km 

15  km 

1 

1.000 

.61*0 

.730 

.810 

2 

1.000 

.620 

.870 

.770 

3 

1.000 

.71*0 

.6U0 

.700 

k 

1.000 

.670 

.860 

.750 

5 

1.000 

.700 

.910 

.780 

6 

1.000 

.720 

.810 

.710 

7 

1.000 

.710 

.830 

.900 

8 

1.000 

.710 

.770 

.760 

9 

1.000 

.750 

.790 

.860 

10 

1.000 

.630 

.810 

.830 

mean 

1.000* 

.689* 

.820 

.787 

significance  level  approximately  0.0 

significance  level  without  considering   the  30  km  group 
is  also  close  to  0.0 

D.   ANALYSIS 

The  above  analyses  of  variance  show  that  there  are 
significant  differences  In  the  performance  of  the 
maintenance  system  as  the  result  of  different  deployment 
schemes . 

For  the  statislcal  tests  of  the  hypotheses  that  the 
means  of   each  treatment   group  were  equals   a  type   I  error 
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rate  of  0.1  was  chosen  because  of  the  relatively  small 
sample  size  and  due  to  the  exploratory  nature  of  the 
experiment. 

In  each  case  the  null  hypothesis  that  the  means  were 
equal  was  rejected.  Further  analysis  was  performed  to 
determine  which  of  the  individual  treatments  differed.  For 
the  repair  cycle  time  data,  the  value  for  the  5  kilometer 
distance  was  significantly  shorter  than  those  for  the  30  and 
10  kilometer  distances.  However,  the  repair  cycle  time  only 
considers  the  vehicles  that  were  actually  repaired,  and  the 
percentage  of  vehicles  repaired  that  were  recovered  was 
significantly  higher  at  the  10  kilometer  distance  than  at 
the  5  kilometer  distance.  This  shows  that  the  jobs  repaired 
were  done  faster  at  the  5  kilometer  distance,  but  more  jobs 
were  done  at  the  10  kilometer  distance. 

The  analysis  of  the  casualty  data  showed  that 
significantly  more  maintenance  personnel  became  casualties 
at  the  5  kilometer  distance  than  at  the  10  or  15  kilometer 
distances.  This  result  Is  intuitively  appealing,  and  it 
demonstrates  the  price  that  has  to  be  paid  for  the  increased 
responsiveness  of  the  maintenance  system. 

Overall,  the  data  seems  to  point  to  the  10  kilometer 
distance  as  being  the  one  that  produces  the  optimal  mix  of 
responsiveness  and  protection  for  the  maintenance  assets. 
This  distance  would  correspond  to  the  forward  detachments 
being   located    In   the   vicinity   of    the  organizational 
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maintenance  sections/  according  to  present  doctrine. 

Once  again  the  reader  Is  reminded  that  real  conclusions 
cannot  be  drawn  from  this  data  due  to  the  hypothetical 
nature  of  the  Input  values  used. 
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APPENDIX  B 
DETAILED  METHODOLOGY  OF  THE  MODEL 

A.  GENERAL 

In  this  appendix  a  detailed  description  of  the 
maintenance  model  is  presented  in  a  form  suitable  for  use  by 
analysts  and  programmers.  Additionally^  a  brief  discussion 
of  the  SIMSCRIPT  11.5  programming  language  and  its  use  in 
the  maintenance  model  is  presented. 

B.  THE  USE  OF  SIMSCRIPT  11.5  IN  THE  MODEL 

The  SIMSCRIPT  11.5  programming  language  is  designed  to 
be  used  to  model  discrete  event  simulations.  [lO]  The 
language  is  very  readable  in  that  the  command  structure  is 
more  1  i  Ice  English  than  that  of  many  other  languages.  This 
feature  assists  the  user  in  following  the  flow  of  the 
program  more  easily.  The  basic  elements  of  the  language 
correspond  exactly  to  those  of  the  basic  structure  of  the 
event  step  simulation.  They  are  entities/  attributes^  sets, 
and  events. 

Entities  are  defined  as  program  elements  in  the  modelled 
system.  In  the  maintenance  model  for  example^  vehicles  that 
need  repair^  the  crews  that  do  the  repairs^  and  the  various 
maintenance  units  themselves  are  entities  in  the  system. 
Each  entity  of   a  specific  class  is   differentiated  from  the 
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other  entities  of  that  class  by  the  values  of  its 
attributes.  All  of  the  entities  in  the  same  entity  class 
have  the  same  attribute  names  but  the  values  of  the 
attributes  might  differ.  For  instance,  in  the  maintenance 
model,  each  job  entity  corresponds  to  a  vehicle.  The  type 
of  vehicle  it  is,  the  amount  of  damage  it  has  sustained,  and 
the  unit  that  it  came  from  are  all  attributes  of  the  job. 
Attributes  can  have  real,  integer,  or  alphanumeric  values. 

A  set  is  a  group  of  entities  with  some  common  property. 
The  maintenance  model  uses  this  programming  feature  in  two 
ways.  The  first  is  to  denote  membership  of  maintenance 
crews  in  the  various  maintenance  units.  Second,  the  jobs 
that  need  to  be  done  at  a  maintenance  unit  are  arranged  into 
sets  according  to  their  shop  status.  For  example  all  the 
vehicles  that  are  waiting  for  repair  parts  belong  to  one 
set. 

An  event  In  SIMSCRIPT  is  an  occurrence  which  takes  place 
at  a  specific  time,  and  results  In  changing  the  values  of 
entity  attributes,  removing  or  adding  entitles  to  sets, 
creating  or  destroying  entitles,  and/or  scheduling  other 
events  to  take  place  at  a  future  time.  An  example  of  an 
event  In  the  maintenance  model  Is  the  arrival  of  a  job  at  a 
maintenance  unit.  When  this  event  occurs,  the  job  Is  either 
Inspected  Immediately,  In  which  case  a  diagnosis  event  is 
scheduled  for  the  job,  or  the  inspection  Is  delayed  and  the 
job  Is   added  to   the  waiting   inspection  set.    Events  take 
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place  Instantaneously  and  do  not  consume  simulated  time. 

These  data  structures  greatly  simplify  the  explicit 
modelling  of  the  progress  of  each  job  through  the 
maintenance  system.  The  set/  entity^  and  attribute  structure 
used  In  the  maintenance  model  is  given  In  appendix  C. 

C.   METHODOLOGY 

1.   Background 

The  model  of  maintenance  In  the  brigade  area 
presented  here  Is  a  stochastic  simulation.  Only  damage  to 
combat  vehicles^  tanks  and  armored  personnel  carriers^  Is 
considered.  The  type  of  damage  played  Is  divided  into  two 
categories^  firepower  and  mobility^  and  the  repairs  of  these 
types  of  damage  are  done  separately. 

The  tactics  used  by  the  supported  battalions  are 
specified  by  the  user.  There  are  two  options.  The  first 
is  an  effort  to  trade  space  for  tlme^  where  the  brigade  is 
divided  into  two  teams  that  alternately  drop  back  to  defend 
a  succession  of  positions.  The  maintenance  system  is 
heavily  taxed  by  this  tactic  since  there  Is  frequent 
requirement  for  the  maintenance  units  to  move  to  alternate 
positions.   The  second  option  is  a  stand  and  fight  option. 

The  simulation  Is  ended  when  the  blue  force  Is 
attrited  to  25  percent  of  its  original  force  level.  This 
stopping  rule  is  written  into  the  program  and  would  require 
only  a  minor  code  modification  to  change. 
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Since   this   model   is   a   stochastic  simulation^ 

replication  of   each  experiment   several  times  is  desirable 

and  necessary  for   the   purpose  of  performing  statistical 
analyses   on   the  outputs.   To   reduce   the   difficulty  of 

performing  replications/  a   loop  is  included  in  the  program 

so  that  as  many  replications  as  desired  may  be  made  in  the 
same  computer  run. 

2.   input  to  the  Maintenance  System 

a.   Generating  Combat  Damaged  Vehicles 

The  first  major  submodel  represents  the  actual 
destruction  of  vehicles  in  combat  and  the  recovery  and 
evacuation  of  the  damaged  vehicles  for  entry  into  the 
maintenance  system.  This  model  is  the  SIMSCRIPT  11.5 
implementation  of  the  Parametric  Analysis  of  Recovery  and 
Evacuation  of  Tracked  vehicles  model/  PARET/  that  was 
developed  by  MAJ  A.F.  Affeldt  to  investigate  battlefield 
recovery  tactics  and  to  determine  heavy  equipment  transport/ 
HET/  requirements  in  the  maneuver  brigade.  [ill  The  HET 
requirement  routines  were  not  needed  for  use  with  the 
maintenance  model  and  were  therefore  excluded. 

The  PARET  model  plays  a  series  of  battles 
corresponding  to  the  succession  of  red  echelons  attacking 
the  blue  force.  In  each  of  these  battleS/  a  BATTLE  event  is 
called  by  the  program.  Attrition  of  both  blue  and  red  forces 
is   computed  on   the   basis  of   a   homogeneous  force/   fixed 
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breakpoint  Lanchester  type  models  under  the  assumption  that 
all  the  armored  vehicles  on  the  battlefield  are  "tank 
killers".  This  model  is  described  in  detail  in  ref.li*.  The 
assumption  is  made  that  the  ratio  of  attrition  coefficients 
is  equal  to  the  force  ratio  at  the  start  of  each  battle.  The 
initial  exchange  ratio  as  well  as  the  initial  force  levels 
for  red  and  blue  are  input  by  the  user,  and  an  attrition 
constant  Is  computed  to  relate  exchange  ratios  In  subsequent 
battles  to  the  number  of  blue  systems  alive.  This  attrition 
constant  Is  computed  by  solving  the  equation: 

X=exp( -(ATT. CONST) (BZERO))        (1) 
for   ATT. CONST  where   X  Is   the  Initial   exchange  ratio   and 
BZERO  Is  the   Initial  blue  force  level.    Exchange  ratios  In 
subsequent  battles   are  computed  by  substituting   the  number 
of  blue  systems  alive  for  BZERO  In  equation  (1). 

The  actual  battle  time  Is  a  function  of  the 
exchange  ratio,  the  force  ratio  (red/blue)  at  the  start  of 
the  battle,  and  the  breakpoint  which  Is  the  hypothesized 
attrition  percentage  that  will  force  red  Into  a  defensive 
position.  The  value  of  this  breakpoint  Is  supplied  by  the 
user.   The  battle  time  Is  computed  as: 

Cl»X**(-.5)  (2a) 

C2»ln((-Y(BP)*((l/X)-(Y**2)(l-BP)**2)**.5)/(X**(-.5)-Y))  (2b) 

TB«(C1)(C2)  (2) 

where  TB  Is  the  battle  time,  Y  Is  the  red  to  blue  force 
ratio,  BP  Is  the   breakpoint,  and  X  Is  the  exchange  ratio. 
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After  red  assumes  its  hasty  defensive  position^ 
time  elapses  until  tlie  next  echelon  closes^  reorganization 
takes  place/  and  the  next  battle  begins.  This  time  for 
rollup  and  restart  is  a  function  of  the  echelon  spacing,  a 
user  input/  and  the  interdicted  rate  of  advance,  computed  as 
a  product  of  the  user  input  nominal  rate  of  advance  and  a 
stochastically  generated  interdiction  level.  The 
interdiction  level  is  allowed  to  vary  uniformly  between  0 
and  50  percent.  So  time  for  rollup  and  restart  is  computed 
as: 

TRR=(SPACE.ECH/RI )*TB+U(a/b)  (3) 
where  TRR  is  the  time  for  rollup  and  restart/  TB  is  battle 
time/  SPACE. ECH  is  the  distance  between  red  echelons,  R  is 
the  nominal  rate  of  advance  of  the  next  red  echelon,  and  I 
is  the  interdiction  level.  Notice  that  a  uniform  random 
number  is  drawn  to  represent  the  time  needed  for 
reorganization  before  the  battle  begins  again.  The  limits 
on  this  random  number/  a  and  b,  are  5  and  10  minutes  of 
delay  time  respectively. 

The  time  available  for  recovery  is  then  computed 
as  the  sum  of  the  battle  time  and  the  rollup  and  restart 
time  less  a  correction  factor  which  accounts  for  the  time 
between  the  start  of  the  battle  and  the  first  red  casualty. 
So  the  recovery  time  is  computed  thus: 

REC.TIME=TB-^TRR+C      (U) 
where  REC.TIME   is  the   recovery  time,  TRR   is  the   time  for 
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rollup  and  restart/  and  C  Is  the  correction  factor. 

Since  the  proportion  of  damaged  vehicles  that  can 
be  recovered  is  postulated  in  the  PARET  model  to  be  equal  to 
the  ratio  of  the  time  available  to  perform  recoveries^ 
REC.TIME/  to  the  time  required  to  recover  all  damaged 
vehicles/  the  necessity  arises  to  determine  the  number  of 
vehicles  requiring  recovery/  and  the  time  needed  to 
accomplish  all  these  recoveries. 

Red  survivors  can  be  computed  as: 
R.ALiVE=BP(RZERO)     (5) 
where  R. ALIVE   Is  the   number  of   red  survlvors/   BP  Is   the 
breakpoint  for   the  red  forceS/  and   RZERO  is  the   red  force 
level  at  the  start  of  the  battle. 

Using  this  value/  the  blue  survivors  are 
calculated  as: 

B.ALIVE=BZERO-(RZERO-R.ALIVE)/X      (6) 
where  B. ALIVE  Is  the  number  of   blue  survlvors/  BZERO  Is  the 
blue  force  level   at  the  start  of   the  battle/  and  X   Is  the 
exchange  ratio.   The   casualties  are  easily  computed   as  the 
difference  between  BZERO  and  B. ALIVE. 

Not  all  vehicles  are  recoverable  and  some  are 
self  or  like  recoverable.  The  percentages  of  unrecoverable 
and  self-like  recovered  vehicles  are  user  Inputs.  The 
number  of  vehicles  needing  recovery  Is  computed  as: 

NR=(1-UNREC-SELF. LI KE)(BZERO-B. ALIVE)      (7) 
where   NR   Is  the   number   needing   recovery/  UNREC   Is   the 
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percentage  of   unrecoverable  vehicles^  and  SELF. LIKE   is  the 
percentage  of  self  or  like  recovered  vehicles. 

The  time  needed  to  recover  all  the  vehicles 
needing  recovery,  TR,  is  a  function  of  the  number  needing 
recovery,  NR,  the  number  of  recovery  vehicles  available,  NA, 
the  time  to  hookup  at  the  recovery  site,  TH,  the  time  to 
travel  to  the  recovery  site,  TG,  and  the  time  needed  to 
travel  from  the  recovery  site  to  the  maintenance  collection 
point,  TC.  The  user  must  supply  both  the  loaded  and 
unloaded  recovery  vehicle  speeds,  CCSL  and  CCSU 
respectively,  so  that  TG  and  TC  can  be  computed.  TG  and  TC 
are  calculated  as  the  ratio  of  distance  to  be  moved  to 
speed,  modified  by  a  disorientation  factor,  D,  which 
represents  the  tendency  for  recovery  vehicles  to  become  lost 
on  the  battlefield.  This  factor  is  a  percentage  of  time 
added  to  both  travel  times  and  is  also  supplied  by  the  user. 
TC,  TG,  and  TR  can  be  calculated  as  follows: 

TC«MCPD(1+D)/CCSL      (8) 

TG=«MCPD(1*D)/CCSU      (9) 

TR=(NR/NA)(TG*TH+TC)   (10) 
where  MCPD   is  the   distance  from  the   recovery  site   to  the 
maintenance  collection  point. 

The  number  of  vehicles  for  which  recovery  is 
attempted,  RECKS,  is  then  computed  as: 

RECKS=NR(REC.TIME/TR)      (11) 
This  procedure   is  repeated  for   every  simulated 
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battle. 

b.   Generating  System  Failures 

The  PARET  model  as  originally  designed  did  not 
consider  ordinary  breakdowns  of  equipment  due  to  use.  Since 
these  system  failures  comprise  a  significant  portion  of  the 
workload  of  the  maintenance  system^  they  are  included  in  the 
maintenance  model. 

Prior  to  the  start  of  the  simulation  in  the  main 
program,  a  FAILURE  event  is  scheduled  for  each  piece  of  blue 
equipment/  independent  of  the  battles.  The  times  of  the 
system  failures  are  assumed  to  be  exponentially  distributed, 
and  the  mean  time  to  failure  for  each  item  is  a  user  input. 
This  mean  time  to  failure  is  in  operating  hours,  and  the 
proportion  of  time  that  the  equipment  operates  is  divided 
into  the  mean  time  to  failure  value  to  convert  it  to  real 
time.   This  proportion  is  also  a  user  input. 

During  the  time  that  preceeds  the  first 
engagement,  the  only  workload  generated  is  from  these  system 
failures.  Since  the  model  assumes  100%  availability  of 
equipment  at  the  start  of  the  simulation,  the  further 
assumption  is  made  that  the  number  of  recovery  vehicles  in 
the  supported  units  will  be  more  than  adequate  to  handle  the 
evacuation  requirements  before  the  actual  fighting  starts. 
Therefore  the  actual  recoveries  of  system  failures  are  not 
explicitly  modelled,  and  they  arrive  at  the  maintenance  unit 
after  a  short  delay  of  beween  two  and  three  hours.   Once  the 
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battle  sequence  begins,  however,  the  system  failures  that 
occur  are  added  to  the  number  of  casualties  assessed  in  the 
battle  and  the  recovery  of  the  system  failures  proceeds  in 
the  same  way  as  the  recovery  of  combat  damaged  vehicles. 

The  FAILURE  event  also  determines  the  unit  that 
the  vehicle  comes  from  and  reduces  the  number  of  combatants 
in  that  unit.  To  avoid  system  failures  on  vehicles  that 
have  already  been  damaged  in  combat,  the  proportion  of  blue 
vehicles  alive  is  computed  in  the  FAILURE  event  and  a  random 
comparitor  Is  drawn  and  compared  with  the  proportion.  If 
the  random  number  is  larger  than  the  proportion,  it  is 
assumed  that  the  vehicle  has  already  been  combat  damaged  and 
the  system  failure  is  ignored, 
c.   Making  Recoveries 

Once  the  total  number  of  vehicles  that  need 
recovery,  both  system  failures  and  combat  damaged  vehicles, 
is  known  in  a  specific  BATTLE  event,  a  recovery  mission  is 
attempted  for  each.  At  each  attempt,  the  recovery  vehicle 
and  the  vehicle  to  be  recovered  are  vulnerable  to  attack. 
The  assumption  is  made  that  the  recovery  vehicle  will  be 
vulnerable  to  artillery  attack  during  the  trips  to  and  from 
the  battle  site,  and  to  direct  fire  only  at  the  battle  site. 
The  probability  of  kill  is  postulated  to  be  a  function  of 
the  times  that  the  recovery  vehicle  is  exposed  in  each  of 
these  phases  of  its  mission.  These  exposure  times  are 
adjusted   to   take   into   account   the   various   situational 
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factors  that  affect  the  probability  of  kill  of  the  recovery 
vehlcl e. 

During  the  movement  phases  of  the  mission  to  and 
from  the  maintenance  collection  pointy  the  exposure  times 
are  TC  and  TG  as  previously  computed.  The  probability  of 
kill  is  calculated  as  a  function  of  these  times,  and  the 
developer  of  the  PARET  model  postulated  the  following 
relation: 

PK=tangent(tlme)  (12) 
This  relation  gives  a  monotone  increasing  function  in  time, 
since  time  is  measured  in  hours  and  the  tangent  is  computed 
as  if  time  is  measured  in  degrees.  A  random  comparltor  is 
then  drawn  to  determine  If  the  recovery  mission  is 
unsuccessful  due  to  Interdiction  during  the  movement  phases. 

Similarly,  the  adjusted  exposure  time  on  the 
battle  site  during  the  hookup  Is  assumed  to  be  a  function  of 
the  hookup  time,  TH,  the  reciprocal  of  the  red  target 
priority  of  a  recovery  vehicle,  Z,  the  probability  of 
incorrect  identification  of  the  recovery  vehicle,  P,  and  the 
probability  of  line  of  sight,  L,  which  are  all  supplied  by 
the  user,  as  well  as  a  randomly  drawn  probability  of 
supresslon,  S.  The  adjusted  exposure  time,  TE.HOOK,  Is 
computed  as: 

TE.HOOK=L(S)(Z)(P)(TH)      (13) 
This  value  is  then  used  to  calculate  the  probability  of  kill 
using  the  following  hypothesized  relation: 
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PK«ABS ( 1/ 1 n ( TE . HOOK) )        (Ik) 
Once  again  a  random  comparltor  is   drawn  and  compared  to  the 
value  of  the  probability  of  kill  to  determine  the  success  of 
the  mission. 

When  a   recovery  mission   is  determined   to  be   a 
failure,  the  model  assumes  that   both  the   recovery  vehicle 
and  the  vehicle  to  be   recovered  are  catastroph ical ly  killed 
and  are  lost  for  the  rest  of  the  simulation, 
d.   Determining  the  Job  Attributes 

At  the  conclusion  of  each  successful  recovery 
mission,  a  BREAK  event  is  scheduled  to  occur  at  a  uniformly 
distributed  time  during  the  available  recovery  time.  It  is 
in  the  BREAK  event  that  the  various  attributes  of  the 
recovered  vehicle  are  determined. 

After  a  job  entity  is  created  and  a  workorder 
number  is  assigned,  a  random  comparltor  is  drawn  and 
compared  to  the  proportion  of  tanks  in  the  force  to 
determine  whether  the  vehicle  type  Is  a  tank  or  an  armored 
personnel  carrier.  The  proportion  of  tanks  In  the  force  Is 
user  suppl led. 

The  damage  sustained  by  the  vehicle  Is  then 
stochastically  determined.  The  damage  to  the  vehicle  Is 
expressed  as  a  number  between  0  and  1,  and  the  number  Is 
Interpreted  to  be  the  percentage  of  major  subsystems  that 
have  been  affected.  As  such,  the  range  of  the  possible 
damage   that   can  be   randomly   drawn   Is  dependent   on   the 
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vehicle  type  and  on  how  the  vehicle  was  damaged.  A  system 
failure/  for  instance/  would  probably  not  be  as  badly 
damaged  as  a  vehicle  damaged  in  combat. 

There  are  two  of  these  damage  proportion  values^ 
corresponding  to  the  mobility  functions  of  the  vehicle 
(MOB. DAM)/  and  to  the  firepower  functions  of  the  vehicle 
(FP.DAM).  These  are  considered  separately  in  the  repair  of 
the  vehicle. 

In  each  BREAK  event/  a  damage  assessment  routine/ 
ASSESS. DAM  is  called  to  determine  the  distribution  of  the 
damage  in  each  major  subsystem  of  the  vehicle.  The 
subsystem  damage  values  are  also  expressed  in  terms  of  a 
proportion  and  these  values  correspond  to  the  percentage  of 
parts  that  have  been  rendered  unserviceable  in  the 
subsystem.  The  values  are  used  in  the  cannibal Izat Ion 
routines  and  are  stored  in  a  two  dimensional  array,  DAM.REC/ 
and  are  indexed  by  workorder  number.  The  major  subsystems 
for  each  vehicle  with  type  TANK  are: 

1  Engine 

2  Drive  Train  (transmission) 

3  Cool tng  System 
k      Fuel  System 

5  Electrical  System 

6  Track  and  Suspension 

7  Fire  Control  -  Optics 

8  Fire  Control  -  Ballistic  Computer  System 
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9  Turret 

10  Hydraul Ics 

11  Armament 

Notice  that  subsystems  1-6  are  mobility  related  and  would 
therefore  be  repaired  by  an  automotive  crew^  and  subsystems 
7-11  are  armament  related  and  would  be  repaired  by  an 
armament  crew. 

Similarly^  the  major  subsystems  for  vehicles 
with  type  APC  are: 

1  Engl ne 

2  Drive  Train 

3  Fuel  System 

k      Cool ing  System 

5  Electrical  System 

6  Track  and  Suspension 

7  Fire  Control 

8  Hydraulics  -  Cupola 

9  Armament 

For  this  vehicle  type,  the  mobility  subsystems  are  1-6^  and 
the  firepower  subsystems  are  7-9.  Notice  that  the  total 
number  of  subsystems  is  different  depending  on  the  vehicle 
type. 

A  line  of  output  is  generated  for  every  job 
under  the  heading  JOB  LIST.  The  line  includes  the  workorder 
number^  the  time  the  vehicle  entered  the  maintenance  system^ 
the   owning   unit/   the   vehicle   type,   the   firepower   and 
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mobility  damage/  and  the  component  damage  values. 

At  the  conclusion  of  the  BREAK  event/  the  job  is 
scheduled  for  arrival  at   the  forward  maintenance  detachment 
that  is  in  support  of  the  battalion  that  owns  the  vehicle, 
d.   The  Dayl Ight  Event 

The  recovery  of  combat  damaged  vehicles  on  the 
battlefield  Is  greatly  affected  by  darknesS/  and  as  such/ 
event  DAYLIGHT  Is  Included  in  the  model  to  represent  the 
effects. 

The  assumptions  are  made  that  the  first  battle 
begins  at  dawn  and  that  there  are  15  hours  of  daylight 
followed  by  nine  hours  of  darkness  each  day.  When  darkness 
fallS/  several  of  the  parameters  are  changed  to  reflect  the 
increased  difficulty  of  night  recovery  operations.  These 
parameters  include  the  cross  country  speeds  of  the  recovery 
vehicles/  the  average  hookup  time  at  the  recovery  site/  and 
the  disorientation  factor. 

Some  other  parameters  that  relate  to  the 
movement  of  the  maintenance  units  themselves  are  also 
adjusted  for  the  effects  of  darkness.  These  are  the  setup 
time  after  a  move  to  a  new  position/  and  convoy  movement 
speeds. 

The  magnitudes  of  the  changes  to  the  parameters 
in  this  event  routine  are  written  Into  the  program/  and 
changes  would  require  only  minor  alteration  of  the  coding. 
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3.   Modelling  the  Maintenance  Functions 
a.   General 

The  second  major  submodel  portrays  the  actions 
affecting  the  damaged  vehicles  once  they  enter  the 
maintenance  system  as  jobs.  Each  job  is  a  separate  and 
distinct  entity,  and  its  progress  through  the  system  is 
modelled  explicitly  until  the  job  is  completed  and  returned 
to  the  combat  force,  it  is  evacuated  to  a  higher  level  of 
maintenance  outside  the  brigade  area,  or  it  is  lost  due  to 
enemy  activity  affecting  the  maintenance  units. 

As  the  job  proceeds  through  the  system,  various 
maintenance  functions  are  performed  on  it.  These  functions 
include  initial  inspection,  ordering  and  waiting  for  the 
repair  parts  needed  to  accomplish  repair,  repair  of  the 
armament  and  automotive  functions  of  the  vehicle,  and 
transport  to  higher  levels  of  the  maintenance  system. 

The  time  that  each  function  requires  is  drawn 
from  a  beta  distribution,  the  parameters  of  which  are 
specified  in  the  input  data.  For  each  function,  the  minimum 
possible  time  required  to  perform  the  action,  the  maximum 
time  required,  and  the  average  time  are  entered  and  stored 
in  the  T. ACTION  array. 

Since  the  range  of  the  beta  distribution  is  from 
0  to  1,  these  values  must  be  scaled  down  to  fit  that  range 
so  that   the  appropriate   beta  parameters   can  be   obtained. 
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This  procedure  for  scaling  down  and  fitting  the  beta 
distribution  is  accomplished  in  the  COMP. TIMES  routine.  The 
parameters  once  computed  are  stored  in  the  A  array  and  are 
output  along  with  the  corresponding  T. ACTION  vector  and  the 
index  number  of  the  particular  maintenance  action.  The 
index  numbers  and  the  maintenance  functions  that  correspond 
to  them  are: 

1  -  inspection  time  at  the  forward  detachments 

2  -  inspection  time  at  the  maintenance  company 

3  -  repair  time  for  automotive  jobs 
k   -  repair  time  for  armament  jobs 

5  -  waiting  time  for  repair  parts  delivery 

6  -  movement    time   from   forward   detachment    to 
maintenance  company 

7  -  waiting  time  for  evacuation  from  forward  detachment 
to  company 

8  -  waiting   time   for   evacuation   from  company   to 
division  rear 

The  actual  times  that  are  used  In  the  model  are 
those  provided  by  the  U.S.  Army  Ordnance  Center  and  School. 
[I2l  The  maintenance  times  given  for  repair  of  the  tanks 
are  those  postulated  for  the  M60A1  tank  and  not  for  the  XMl. 
Similarly  the  repair  times  for  the  armored  personnel  carrier 
are  based  on  data  for  the  M113  series  and  not  the  new 
Infantry  Fighting  Vehicle.  The  assumption  Is  made  however^ 
that  the  values  are  close  enough   to  be  useful.   Since  these 
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values  are   Input  as  data^  It  would  be  very  easy   to  change 
them  If  better  ones  become  available. 

Each  time  an  event  Is  scheduled  and  a  time  Is 
drawn  from  the  appropriate  beta  distribution^  the  number 
drawn  Is  scaled  back  up  to  real  time  scale  corresponding  to 
that  given  In  the  T. ACTION  vector. 

When  a  beta  distributed  random  number  Is 
generated^  SIMSCRIPT  uses  Its  Internal  gamma  random  number 
generator.  Occasionally/  the  parameters  for  the  gamma 
random  number  generator  are  such  that,  although  they  are 
mathematically  and  theoretically  correct  as  parameters  of 
the  gamma  distribution,  the  gamma  generator  gives  an  error 
message  stating  that  the  parameters  used  are  Incorrect. 
Consequently  the  program  terminates.  For  this  reason  a  more 
robust  gamma  random  number  generator  routine,  GAMMA, F,  Is 
Included  In  the  program.  This  routine  overrides  the 
internal  gamma  routine. 

b.   Arrival  and  Initial  Inspection 

At  the  conclusion  of  the  BREAK  event,  once  the 
various  attributes  describing  the  job  are  determined,  an 
ARRIVAL  event  Is  scheduled  Immediately  for  the  job,  causing 
It  to  enter  the  maintenance  system  at  the  forward  detachment 
supporting  the  battalion  that  owns  the  vehicle. 

In  this  ARRIVAL  event  two  determinations  are 
made.  First,  the  remaining  capability  of  the  unit  to 
perform  the   needed  repair   Is  evaluated.    If,  after   enemy 
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attack/  no  automotive  repairmen  are  available,  it  would  be 
impossible  to  repair  a  vehicle  with  mobility  damage. 
Consequently  the  vehicle  Is  evacuated  to  a  higher 
maintenance  level.  A  MOVE. REAR  event  is  scheduled  to 
accomplish  the  evacuation  and  the  job  is  filed  in  the 
waiting  transport  queue,  WT. QUEUE. 

Second,  if  the  capability  to  do  the  type  of 
repair  required  for  the  vehicle  is  present,  the  availability 
of  an  inspector  to  perform  the  initial  Inspection  is 
determined.  If  he  Is  available,  a  DIAGNOSIS  event  Is 
scheduled.  Otherwise  the  vehicle  must  wait  for  Inspection 
in  the  Wl .QUEUE. 

The  actions  of  the  inspector  are  portrayed  in 
the  DIAGNOSIS  event.  These  actions  include  determination  of 
parts  availability  either  from  repair  parts  supply  or  by 
cannibal izat ion,  the  assignment  of  a  crew  of  mechanics  to 
perform  the  repair  if  the  parts  are  available,  and 
determination  of  whether  or  not  the  repair  can  be 
accomplished  at  that  maintenance  level. 

Parts  availability  Is  determined  stochastically, 
and  a  random  comparltor  Is  drawn  and  gamed  against  the  user 
input  value  of  the  probability  that  the  unit  in  question  has 
the  parts. 

If  parts  are  not  available  through  the  supply 
system,  a  check  of  the  other  vehicles  present  at  the 
maintenance  site  Is   made  to  determine  whether   parts  can  be 
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obtained  by  cannibal izat ion. 

In  the  event  that  parts  are  available  from 
either  source^  a  search  of  the  unit  is  made  to  find  an  idle 
crew  to  perform  the  repair.  Since  firepower  and  mobility 
damage  must  be  repaired  by  separate  crews^  the  crews  are 
located  by  their  assigned  mission.  When  the  appropriate 
personnel  are  founds  the  job  is  filed  either  in  the  ARMAMENT 
set  or  the  AUTOMOTIVE  set  and  a  REPAIR  event  is  scheduled. 
If  no  crew  with  the  correct  mission  type  is  located^  the  job 
is  filed  in  the  waiting  shop  set  (WS. QUEUE). 

If  parts  are  not  available  and  the  vehicle  is  at 
a  forward  detachment/  the  job  is  evacuated  to  the 
maintenance  company  and  a  MOVE. REAR  event  is  scheduled.  The 
assumption  Is  made  that  the  time  required  for  parts  to  be 
delivered  to  the  forward  detachments  would  be  too  long 
considering  the  need  for  the  detachments  to  remain  mobile^ 
and  considering  the  short  duration  of  their  stay  at  any  one 
place. 

At  the  maintenance  company^  if  the  need  arises^ 
parts  are  ordered  and  a  PARTS. COME  event  is  scheduled.  The 
job  is  then  filed  in  the  WP. QUEUE  set  corresponding  to  the 
group  of  vehicles  that  are  in  waiting  parts  status. 

Finally/  The  waiting  inspection  set  is  checked 
for  any  other  vehicles  that  need  to  be  inspected.  If  there 
are  any  there/  another  DIAGNOSIS  event  Is  scheduled  and  the 
appropriate  job  is  removed  from  the  waiting  inspection  set. 
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c.  Obtaining  Repair  Parts 

There  are  two  methods  of  obtaining  the  repair 
parts  necessary  to  perform  repairs^  through  the  supply 
system  and  through  canni bal i zat ion. 

Parts  delivered  through  the  supply  system  are 
portrayed  in  the  PARTS. COME  event  which  is  scheduled  In  the 
DIAGNOSIS  event.  The  assumption  is  made  that  a  job  will  not 
be  worked  on  unless  all  of  the  repair  parts  necessary  are 
present.  This  assumption  precludes  repairing  mobility 
damage  while  parts  are  still  needed  to  repair  firepower 
damage.  As  such^  when  a  PARTS. COME  event  Is  executed  and 
the  parts  for  a  job  arrive  at  the  maintenance  facility^ 
mobility  and  firepower  damage  are  again  considered 
separately  In  locating  crews  to  perform  the  repairs.  The 
procedure  used  to  find  crews  Is  Identical  to  that  In  event 
DIAGNOSIS.  Repairs  are  scheduled  to  occur  and  the  job  Is 
filed  In  the  AUTOMOTIVE  set  or  the  ARMAMENT  set  as 
appropriate.  If  no  crews  are  available  the  job  Is  filed  In 
the  WS. QUEUE  signifying  that  It  Is  waiting  shop. 

d.  Cannibal  I zat Ion 

The  other  source  of  repair  parts  Is 
cannibal Izat ton.  There  are  two  Instances  In  the  process 
when  cannibal  I zat Ion  Is  considered  for  a  vehicle.  Firsts  In 
the  DIAGNOSIS  event.  If  the  job  Is  determined  to  need  parts 
that  are  not  present  In  the  unit  supply,  the  other  vehicles 
at   the  unit   for  repair   are  checked   as  possible  sources. 
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Next^  at  the  conclusion  of  a  REPAIR  events  If  no  other  jobs 
are  In  a  waiting  shop  staus/  a  check  Is  made  of  all  the  jobs 
that  are  waiting  for  parts  or  waiting  for  transport  to  a 
higher  echelon  of  maintenance  to  see  if  parts  can  be 
obtained  to  perform  a  repair. 

The  only  vehicles  considered  as  sources  for 
parts  are  those  either  waiting  for  evacuation  to  the  rear  or 
those  waiting  for  parts.  All  of  the  other  vehicles  present 
at  the  maintenance  site  are  either  waiting  for  repair  or  are 
in  the  process  of  being  repaired^  and  no  purpose  would  be 
served  by  removing  parts  from  them.  The  jobs  waiting  for 
evacuation  cannot  be  repaired  at  the  unit  In  question,  so 
nothing  Is  lost  by  taking  the  serviceable  parts  from  them. 
The  jobs  waiting  for  parts  to  arrive  cannot  be  worked  on 
until  the  parts  arrive,  so  removing  parts  from  them  merely 
Increases  their  wait. 

The  assumption  Is  made  that  the  Inspectors  In 
the  maintenance  unit  would  know  how  each  vehicle  was  damaged 
and  what  parts  are  serviceable  and  available  for 
cannibal Izat Ion.  Therefore,  no  time  is  assessed  for  the 
parts  availability  determination. 

When  the  attributes  of  each  job  were  first 
determined  In  the  BREAK  event,  the  damage  assessment 
routine,  ASSESS. DAM,  was  called  to  stochastically  determine 
the  proportion  of  unserviceable  parts  In  each  major 
subsystem  of  the  vehicle.   These  proportions  are  used  In  the 
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cannibal  I zat ion  routine^  CANNIBAL^  to  compare  parts 
requirements  with  availability  for  each  subsystem  of  the 
vehicle. 

When  a  job  is  considered  for  cannibal i zat ion^ 
the  CANNIBAL  routine  checks  each  subsystem  of  the  job 
against  those  in  waiting  transport  statuS/  WT. QUEUE/  and 
then  against  those  in  waiting  parts  status^  WP. QUEUE/  until 
the  supply  of  vehicles  has  been  exhausted/  or  until  the 
parts  requirements  has  been  met.  This  checking  procedure 
entails  several  steps.  First/  the  particular  subsystem  of 
the  job  is  examined  to  see  if  parts  are  needed.  Then/  if  a 
requirement  existS/  possible  source  vehicles  are  examined  to 
see  if  the  proportion  of  parts  available  exceeds  the 
proportion  needed.  If  not/  the  needed  parts  are  considered 
not  available  on  that  potential  source  vehicle.  If  sO/  a 
random  comparitor  Is  drawn  and  compared  to  the  difference 
between  the  proportion  of  parts  available  on  the  source 
vehicle/  and  the  proportion  of  parts  needed  for  the  job. 
This  random  comparison  procedure  represents  a  check  to  see 
if  the  parts  needed  match  the  parts  available  on  the  source 
vehicle. 

When  parts  are  located/  the  entity  number  of  the 
source  vehicle  is  recorded  In  a  two  dimensional  array/ 
CAN.REC/  which  is  a  list  of  the  source  vehicles  for  each 
subsystem  of  each  job  that  is  to  be  supplied  by 
cannibal Izat ion. 
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The  source  vehicles  that  are  waiting  transport 
to  the  rear  have  their  evacuations  cancelled^  and  they  are 
not  rescheduled  until  the  parts  are  removed  In  the 
SUBSTITUTION  routine.  If  the  source  vehicle  is  waiting  for 
partS/  its  PARTS. COME  event  Is  cancelled  and  a  new  one  Is 
scheduled  either  at  the  time  that  the  parts  to  be  removed 
arrive,  or  at  the  the  time  the  original  parts  were  to 
arrive,  whichever  Is  later. 

Jobs  for  which  parts  are  located  through  the 
cannibal Izat Ion  routine  are  then  placed  In  a  waiting  shop 
status.  When  a  repair  Is  finally  scheduled  for  the  job.  Its 
non-zero  IN. CAN  attribute  will  Indicate  that  a  substitution 
of  parts  from  the  source  vehicles  Is  required  before  the 
repair  can  be  made.  The  IN. CAN  attribute  corresponds  to  a 
row  of  the  CAN.REC  array  which  contains  the  list  of  source 
vehicles. 

e.   Performing  the  Repair 

The  actual  repair  of  the  vehicle  Is  accomplished 
In  the  REPAIR  event.  Each  repair  has  a  specified  job  and  a 
specified  crew.  The  crew  will  have  the  capability  to  repair 
either  firepower  damage  or  mobility  damage  depending  on  Its 
assigned  mission.  Consequently,  a  vehicle  that  has 
sustained  both  firepower  and  mobility  damage  must  have  two 
REPAIR  events  scheduled  for  It. 

If  the  repair  parts  for  the  job  are  to  be 
obtained  through   cannibal  I zat Ion,  the   SUBSTITUTION  routine 
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Is  called.  This  routine  Increases  the  proportion  of 
unserviceable  parts  in  the  appropriate  source  vehicles  by  an 
amount  corresponding  to  the  proportion  for  the  job  to  be 
repaired.  Evacuations  are  then  rescheduled  for  source 
vehicles  requiring  them. 

The  repair  Is  then  performed  by  setting  either 
the  firepower  damage  attribute/  FP.DAf<1/  or  the  mobility 
damage  attribute/  MOB. DAM/  to  zero  depending  on  the  mission 
of  the  crew  doing  the  work.  \f,  at  the  conclusion  of  the 
repair/  both  of  these  attribute  values  are  zero,  the  job  Is 
considered  complete  and  It  Is  filed  In  the  CLOSED. JOB  set. 
The  fighting  force  Is  also  Increased  at  this  time/  and  the 
vehicle  will  participate  In  the  next  battle. 

The  remainder  of  the  REPAIR  event  entails 
finding  another  job  for  the  crew  to  work  on.  The  first 
place  checked  is  the  group  of  jobs  that  are  waiting  shop. 
If  a  job  Is  found  that  has  damage  the  crew  has  the 
capability  to  repair  according  to  Its  mission  attribute/  the 
job  Is  removed  from  WS. QUEUE  and  a  REPAIR  event  Is  scheduled 
for  it. 

If  no  appropriate  jobs  are  available  in  the 
WS. QUEUE/  each  vehicle  In  waiting  transport  status  and  then 
each  job  vehicle  in  waiting  parts  status  Is  checked  to  see 
If  parts  can  be  found  through  canni bal i zat ion/  so  that  work 
can  be  done.  If  any  such  job  can  be  found/  a  REPAIR  event 
Is  scheduled  for  it.   I f  no  jobs   can  be  found  that  the  crew 
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In  question  can  perform^  the  OCCUPATION  attribute  of  the 
crew  Is  changed  from  busy  to  Idle^  and  the  crew  will  wait 
for  a  job  to  become  available. 

f.   Evacuations  to  Higher  Levels  of  Maintenance 

There  are  several  reasons  why  a  vehicle  would 
require  evacuation  to  the  rear.  First/  If  the  damage 
sustained  by  the  vehicle  Is  greater  than  the  maintenance 
unit  has  the  capacity  to  repair,  the  job  must  be  evacuated. 
Next/  If  parts  are  not  available  at  a  forward  detachment  for 
a  job/  It  must  be  evacuated.  Finally/  If  a  maintenance  unit 
moves  to  an  alternate  position/  Its  jobs  must  be  evacuated. 

These  evacuations  are  accomplished  in  the 
MOVE. REAR  event.  If  the  job  Is  to  be  evacuated  from  a 
forward  detachment  to  the  maintenance  company/  an  ARRIVAL 
event  Is  scheduled  to  bring  the  vehicle  to  the  company.  If 
the  job  is  to  be  evacuated  to  the  division  support  area,  it 
Is  filed  in  the  EVAC.JOB  set  and  Is  no  longer  considered  in 
the  model . 

k.      Modelling  the  Combat  Functions 

a.   Movement  of  the  Maintenance  Units 

The  movement  of  maintenance  units  to  new 
positions  Is  accomplished  In  the  JUMP  and  GET. THERE  events. 
During  a  move/  time  is  expended  and  no  maintenance  functions 
can  be  performed.  Only  mobile  vehicles  accompany  the  unit 
on  the  move.   The  others  are   left  behind  unless  they  can  be 
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evacuated  prior  to  the  unit  leaving. 

A  move  is  triggered  when,  in  the  BATTLE  event,  a 
maintenance  unit  gets  too  close  to  the  forward  line  of 
troopS/  FLOT.  The  distance  at  which  the  unit  is  too  close 
Is  Input  by  the  user  as  the  variable  B.DIST.  The  rate  of 
movement  of  the  FLOT  during  the  battle  Is  also  a  user  Input 
as  the  variable  FLOT. MOVE  which  Is  expressed  In  kilometers 
per  hour.  Therefore,  the  distance  from  the  FLOT  to  the 
maintenance  unit  Is  decreased  by  that  rate  multiplied  by  the 
time  of  battle  during  the  BATTLE  event. 

Additionally,  when  the  option  to  represent  the 
tactic  of  trading  space  for  time  is  selected  by  the  user,  a 
further  reduction  of  four  l<ilometers  in  the  distance  from 
the  maintenance  unit  to  the  FLOT  is  made  for  two  of  the 
units  as  one  of  the  battalion  teams  moves  to  an  alternate 
position. 

When  the  maintenance  unit  moves,  the  assumption 
is  made  that  the  unit  will  move  to  a  new  position  that  is 
the  same  distance  from  the  old  position  as  the  old  position 
was  from  the  FLOT  at  the  start  of  the  first  battle. 

The  speed  In  which  the  unit  moves  to  its  new 
position  is  user  input  as  the  variable  CON. SPEED.  This 
speed  Is  reduced  by  event  DAYLIGHT  during  night  operations. 
The  time  It  takes  the  unit  to  move  Is  the  quotient  of  the 
distance  moved  and  the  speed,  plus  the  time  it  takes  the 
unit   to  setup   and  resume   its   maintenance  mission.    This 
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SETUP. TIME  variable   Is  also  a   user  provided  value,   and  Is 
changed  by  event  DAYLIGHT  as  well. 

The  calculation  of  the  movement  time  is  made  in 
the  JUMP  event/  and  a  GET. THERE  event  Is  scheduled  using 
that  calculated  time.  Also,  entity  records  of  jobs  that  do 
not  accompany  the  unit  are  removed  from  the  sets  to  which 
they  belong  and  are  destroyed.  During  the  move,  the  T.JUMP 
attribute  of  the  maintenance  unit  has  a  nonzero  value 
signifying  the  time  at  which  the  unit  will  once  again  begin 
functioning.  No  ARRIVAL  events  will  occur  for  that  unit 
until  after  that  time. 

The  GET. THERE  event  marks  the  resumption  of 
maintenance  activities  at  the  new  position.  Vehicles  that 
have  accompanied  the  unit  and  are  in  waiting  shop  status  and 
need  parts  from  a  canni bal ization  are  rechecked  to  make  sure 
the  source  vehicles  are  still  present  at  the  unit.  If  not, 
and  If  the  parts  cannot  be  obtained  from  vehicles  that  are 
with  the  unit,  the  vehicle  Is  evacuated  and  a  MOVE. REAR 
event  Is  scheduled  for  It. 

Another  function  performed  in  the  GET. THERE 
event  is  the  matching  of  Idle  crews  with  jobs  In  waiting 
shop  status.  This  action  represents  the  reorganization  of 
effort  at  the  new  position.  When  crews  are  matched  with 
jobs  to  be  done,  repairs  are  scheduled. 

b.   Attrition  of  the  Maintenance  Units 

The  detection   of  the  maintenance  units   by  the 
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enemy,  the  allocation  of  fires  against  them,  and  the  actual 
attrition  of  personnel  is  portrayed  In  this  submodel.  The 
assumption  Is  made  that  the  probability  of  detection  of  a 
maintenance  unit  by  the  enemy  and  the  probability  that  the 
enemy  will  decide  to  engage  the  unit  are  functions  of  how 
close  the  unit  Is  to  the  enemy  and  of  the  number  of  vehicles 
at  the  maintenance  unit.  Therefore  the  following  model  Is 
postulated: 

Pr(engagement)«Pr(engagement/detectIon)Pr(detectIon) 
Pr (detect  Ion) »exp( (-VR)**A) 
where  V  Is  the  squareroot  of  the  reciprocal  of  the  number  of 
vehicles  present  at  the  unit,  R  Is  the  distance  from  the 
forward  line  of  troops  to  the  maintenance  unit  In 
kilometers,  and  A  Is  a  user  supplied  shaping  factor  that 
determines  the  degree  of  range  dependency  of  the  function. 
The  probability  of  engagement  given  the  detection  of  a 
maintenance  unit  Is  assumed  to  be  unity  for  the  model  due  to 
the  great  amount  of  red  artillery  available.  Several  plots 
of  the  probability  function  are  presented  In  figure  1. 

At  the  conclusion  of  each  BATTLE  event,  routine 
DET. ALLOC  Is  called,  and  this  probability  function  Is 
evaluated  for  each  maintenance  unit.  A  random  comparltor  Is 
then  drawn  to  see  If  the  enemy  attacks  the  unit.  If  so, 
routine  ATTACK  is  called. 

The  assumption  Is  made  that  the  maintenance 
capability  of  a  maintenance  unit   Is   proportional  to   the 
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Figure  1.    Probability  of  Detection  Plots 
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number  of  maintenance  personnel  present.  Consequently  only 
the  personnel  casualties  and  the  disruption  of  the 
maintenance  activities  of  the  unit  are  portrayed. 

For  each  Individual  person  present  at  the  time 
of  the  attack/  a  random  comparltor  Is  drawn  and  compared  to 
the  user  Input  value  of  the  probability  of  kill  for 
personnel/  PK.PERS.  The  program  keeps  track  of  the  number 
of  each  type  of  repairman  present  at  the  unit.  These 
numbers  are  decreased  each  time  an  Individual  Is  killed. 

It  is  assumed  that  In  order  to  function^  a  crew 
must  have  at  least  two  repairmen.  Consequent! y^  after  the 
number  of  kills  has  been  evaluated^  a  reorganization  takes 
place.  In  this  reorganization  as  many  crews  as  possible  are 
formed  from  the  repairmen  left  alive.  The  rest  of  the  crews 
have  their  OCCUPATION  attribute  value  changed  to  dead,  and 
are  no  longer  considered  In  the  model. 

The  crews  left  functioning  are  then  matched  with 
jobs  to  be  done.  Repairs  In  progress  by  crews  that  are  not 
killed  are  delayed  until  the  end  of  the  attack.  Similarly^ 
Inspections  that  are  taking  place  at  the  start  of  the  attack 
are  also  delayed. 

Finally^  In  the  event  that  either  or  both  of  the 
repair  capabi 1 1 tles^  firepower  or  mobility^  are  totally 
eliminated/  any  job  that  requires  that  type  of  repair  must 
be  evacuated  to  the  rear.  These  jobs  are  removed  from  the 
sets  they  are   filed  in,  and  MOVE. REAR   events  are  scheduled 
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to  effect  the  evacuations. 

If  repair  capabilities  are  lost  by  the  unit/  any 
future  jobs  received  will  immediately  be  scheduled  for 
evacuation  to  the  maintenance  company.  As  such^  the  forward 
detachment  will  serve  only  as  a  maintenance  collection  point 
where  damaged  vehicles  are  brought  to  be  sent  to  the  rear. 
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APPENDIX  C 
PROGRAM  DOCUMENTATION 

A.  INTRODUCTION 

In  this  appendix^  the  maintenance  model  program  Is  fully 
documented.  The  set^  entity^  and  attribute  structure  Is 
described  In  detail.  Each  program  module  Is  discussed  and  a 
line  by  line  explanation  of  the  computer  coding  is  given. 
Also  all  variables  are  defined.  The  reader  Is  refered  to 
appendix  E  where  a  program  list  Is  supplied. 

B.  ENTITY^  SET,  AND  ATTRIBUTE  STRUCTURE 
1.   The  MAJNT.UNIT  Entity 

The  MAINT.UNIT   entity  refers   to   the  maintenance 
unltS/   both  the   forward   detachments   and  the  maintenance 
company.  Each  maintenance  unit  owns  the  following  sets: 
SHOP  -  set  of  crews  in  the  maintenance  unit 
Wl. QUEUE  -  set  of  jobs  In  waiting  Inspection  status 
WP. QUEUE  -  set  of  jobs  In  waiting  parts  status 
WS. QUEUE  -  set  of  jobs  In  waiting  shop  status 
WT. QUEUE  -  set  of  jobs  waiting  transport  to  the  rear 
AUTOMOTIVE  -  set  of  jobs   being  worked  on  by  automotive 
repal rmen 

ARMAMENT   -  set   of  jobs   being  worked   on  by   armament 
repal rmen 
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Each  MAINT.UNIT  entity  has  the  following  attributes: 
INSPECTOR  -  number  of  Idle  vehicle  Inspectors 
NAME  -  identification  of   MAINT.UNIT  with  the  following 
possible  values: 

CO. MAI  NT  -  defined  to  mean  0^  company 
DETl.MAINT  -  defined  to  mean  1,    detachment  1 
DET2.MAINT  -  defined  to  mean  2,    detachment  2 
DET3.MAINT  -  defined  to  mean  5,    detachment  3 
DETif.MAINT  -  defined  to  mean  k,    detachment  k 
VEH. COUNT  -  number  of  vehicles  present  at  the  unit 
D.FLOT  -  distance  from  the  unit  to  the  PLOT 
NM. FOLKS  -  number  of  automotive  repairmen  at  the  unit 
NF. FOLKS  -  number  of  armament  repairmen  at  the  unit 
T.JUMP  -  the  time  In  which   the  unit  will  reach  Its  new 
location  after  a  move 

All  the  maintenance  units   belong  to   a  system   set 
called  SUP.BN  which  stands  for  Support  Battalion. 

2.   The  JOB  Entity 

The   JOB  entity   represents  a   damaged  vehicle   that 
enters   the  maintenance   system  to   te   repaired.   Each   JOB 
entity  Is  characterized  by  the  following  attributes: 
WO.NUM  -  workorder  number  of  the  job 

VEH. TYPE   -  vehicle   type;  has   the  following   possible 
values : 

TANK  -  defined  to  mean  1 
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APC  -  defined  to  mean  2,    armored  personnel  carrier 

UNIT  -   indicates  which  of   the  k      supported  battalions 

the  vehicle  has  come  from  and  will  return  to  when  it  is 

repaired 

TIME. DOWN  -   time/  measured  in   dayS/  that   the  vehicle 

entered  the  maintenance  system 

M0B.DA^'1   -   percentage  of  mobility   damage/   a   number 

between  0  and  1 

FP.DAM   -   percentage   of  firepower   damage/   a   number 

between  0  and  1 

T. ARM. REP  -  time  used  to  repair  armament  damage 

T. AUTO. REP  -  time  used  to  repair  automotive  damage 

REP. UNIT  -  NAME  attribute  of   the  maintenance  unit  that 

repairs  vehicle 

TOT.DAfi  -  total  of  FP.DAT'I  and  MOB. DAM;  not  used 

IN. CAN   -  row   index  of   CAN.REC  array   that  lists   the 

source  vehicles  for  cannibal i zat ion 

CAN . NUM  -  the  number  of   vehicles  to  which  job  provides 

parts  for  cannibal i zat ion 

LOOP.CH  -  flag  to  mark  vehicle  to  be  removed  from  set 
The  JOB  entities  can  become  members  of  various  sets 
as  they  progress  through  the  maintenance  system.  These  sets 
Include  the  ones  listed  under  MAINT.UNIT  which  represent 
groupings  of  jobs  with  the  same  status.  In  addition  to 
those  sets  are  three  others  to  which  a  job  may  belong.  They 
are: 
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CLOSED. JOB  -   the  set   of  jobs   for  which   repairs  have 

been  successfully  completed 

EVAC.JOB  -  the  set  of  jobs  that  have  been  evacuated  out 

of  the  brigade  area 

KILL. JOB  -   used  to  temporarily   hold  jobs   before  they 

are  destroyed  at  the  end  of  a  replication 

3.   The  CREW  Entitv 

The  CREW  entities  represent  the  groups  of  repairmen 
In  a  maintenance  unit.  The  attributes  that  describe  the 
crews  are: 

MISSION  -  indicates   which  type  of  damage   the  crew  can 
repair;  has  the  following  possible  values: 

AUTO  -  defined  to  mean  1,    repairs  mobility  damage 
ARM  -  defined  to  mean  2,    repairs  firepower  damage 
OCCUPATION  -   indicates  what  the   crew  is  doing   at  any 
time  in  the  simulation;  has  the  possible  values: 

IDLE  -  defined  to  mean  0,  waiting  for  a  job  to  do 
BUSY  -  defined  to  mean  1^  working  on  a  job 
DEAD  -  defined  to  mean  2,    killed  in  an  attack 
N. FOLKS  -  number  of  repairmen  in  the  crew 

Each  crew  entity  belongs  to  the  SHOP  set  of  one  of 
the  maintenance  units. 
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C.       EVENTS    AND    ROUTINES 

1.  The  Preamble 

The  preamble  of  any  SIMSCRIPT  11.5  program  is  used 
to  set  up  the  data  structures  in  terms  of  entities,  sets, 
and  attributes;  define  event  routines  and  list  their 
arguments;  set  up  the  mechanism  for  collecting  statistics  by 
means  of  the  TALLY  statements;  and  define  the  variables  that 
are  global  in  the  program. 

The  preamble  for  this  program  accomplishes  these 
functions  and  is  basically  self  explanatory. 

2.  The  Main  Program 

The  purpose  of  the  main  program  is  to  read  data. 
Initialize  variables  to  the  appropriate  values,  create  the 
maintenance  unit  and  crew  entities  and  initialize  their 
attributes,  schedule  FAILURE  events  for  all  the  vehicles  In 
the  blue  force,  and  schedule  the  first  BATTLE  and  DAYLIGHT 
events.  The  main  program  also  has  the  replication  loop 
contained  in  it,  which  is  used  to  repeat  the  simulation 
experiment  as  many  times  as  the  user  desires. 

Explanation  of  the  coding: 
Lines  1-5   reserve  core  for  various  arrays 
Lines  6-9   define  local  variables  for  the  main  program 
Lines  10-11   read  Input  variables 
Lines  12-18   generate  initial  array  of  random  number  seeds 


82 


Lines  19-32   read  input  variables 

Line  33   calls  COMP.TIME  routine   to  read  and   compute  beta 

parameters 

Lines  3U-35   initialize  variables 

Line  35   computes   total  number  of  maintenance   personnel  in 

system 

Line  37   begins  replication  loop 

Lines  38-55  initializes  variables  for  each  replication 

Lines   56-58    prints   initial   parameter   values   on   first 

repl ication  only 

Line  59   computes  the  attrition  constant 

Lines  60-51   schedules  FAILURE  events  for  all  blue  vehicles 

Lines  52-58   initialize  variables  for  replication 

Line  69   performs  initialization  for  stand  and  fight  option 

Lines   70-75    create   the  maintenance   company   and   assign 

attributes 

Lines   77-82   calculates   number  of   crews   in  maintenance 

company  and  the  number  of  personnel  in  each  crew 

Lines  83-90   creates   the  crews  for  maintenance   company  and 

assigns  attributes 

Lines   91-112   repeats  maintenance  unit  and  crew  creation 

with  attribute  assignment  for  all  forward  detachments 

Line  113   schedules  first  BATTLE  event 

Line  111*   schedules  first  DAYLIGHT  event 

Line  115   prints  Job  List  heading 

Line  115   calls  Timing  Routine  and  starts  the  simulation 
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Line  117   end  of  replication  loop 

3.   The  FAILURE  Event 

The  FAILURE  event  routine  is  executed  whenever  a 
blue  vehicle  breaks  down  due  to  wear  and  tear  and  not  as  a 
result  of  enemy  action.  The  event  determines  the  owning 
unit  of  the  vehicle  and  decreases  the  number  of  combatants 
in  the  unit.  To  avoid  having  a  system  failure  for  a  vehicle 
that  has  already  been  damaged  in  combat^  a  random  number  is 
drawn  and  compared  to  the  proportion  alive  in  the  unit.  If 
the  random  number  exceeds  the  proportion  alive/  the  vehicle 
in  question  is  considered  to  have  already  been  damaged  in 
combat. 

Expanation  of  the  coding: 
Lines  2-3   define  local  variables  for  the  routine 
Line  k      checks  to  see  If  battle  sequence  has  begun 
Lines  5-11    determines  unit   and  schedules   BREAK  event   in 
pre-battle  period 

Line  12   determines  composition  of  unit 

Line   13   checks   to  see   If  vehicle  was  previously   combat 
damaged 

Lines  li»-15   decrease  unit   fighting  strength  and  Identifies 
vehicle  as  needing  recovery 
Lines  17-26   repeats  13-15  for  split  brigade  composition 
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k.      The  BATTLE  Event 

The  BATTLE  event  performs  several  functions  in  the 
simulation.  It  contains  the  Lanchester  formulation  that  Is 
used  to  compute  the  casualties  and  the  time  of  battle^  It 
performs  the  recovery  missions  and  determines  the  attrition 
of  the  recovery  vehicles,  it  keeps  track  of  the  location  of 
the  various  maintenance  units  with  respect  to  the  forward 
line  of  troops  and  triggers  the  units  to  move  If  necessary, 
and  it  calls  the  detection  and  allocation  routine  which 
generates  enemy  attacks  on  the  forward  detachments. 

Expanatlon  of  the  coding: 
Lines  2-11   define  local  variables  for  the  routine 
Lines  12-13   increment  counters 

Line  l**   Increase  echelon  spacing  for  divisional  spacing 
Line  15   prints  battle  results  heading 
Line  15   calls  routine  DET. ALLOC 

Lines  17-3i*   sets  parameters  depending  on  the  composition  of 
the  unit  fighting 

Line  35   computes  exchange  ratio  for  this  battle 
Lines  36-U2   computes  the  time  of  battle 
Line  k3      print  WHO. FIGHT  and  battle  time 

Line  kk        computes  Interdicted  rate   of  advance  of   next  red 
echelon 

Line  kS      computes  time  for  rollup  and  restart 
Lines  h6-k7      computes  time  available  for  recovery 
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Line  48   computes  blue  casualties  including  system  failures 

Line  k9      keeps  statistics  on  blue  casualties 

Lines  50-51   compute  number  of  vehicles  needing  recovery 

Line  52   checks  number  of  recovery  vehicles  available 

Line  53   computes  time  needed  to  recover  all  vehicles 

Lines  5U-56   computes  the  number  of  vehicles  to  be  recovered 

Lines  57-59   calculates  exposure  times  for  recovery  missions 

Line  60   initializes  job  counter 

Line  61   return  to  regular  echelon  spacing 

Lines  62-86    attempt  recoveries  for  vehicles   and  determine 

success  or  failure  of  missions 

Lines  87-88   print  number  of  recovery  vehicles  lost 

Lines   89-98    schedule   BREAK   events   for   system   failed 

vehicles  that  are  still  mobile 

Lines  99-108    schedule  BREAK  events   for  vehicles   that  are 

combat  damaged  but  are  still  mobile 

Lines  109-119   schedule   BREAK  events  for  vehicles   that  are 

system  failed  and  need  recovery 

Lines  120-127   schedule   BREAK  events  for  vehicles   that  are 

combat  damaged  and  need  recovery 

Lines  128-129   update  number  of  blue  systems  alive 

Lines  130-132   update   distance  of  maintenance  units   to  the 

PLOT 

Lines  133-135   collect  recovery  and  casualty  statistics 

Lines  136-138   update  number  of  red  systems  in  battle 

Line  139   return  to  regular  echelon  spacing 
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Line  li+O  check  the  composition  of  the  force 

Lines  lUl-152    update  distances   to  FLOT^   check  to   see  if 

distance  is   too  small  and  schedule   a  JUMP  for  the   unit  if 

necessary 

Lines  153-155   update  variables  for  team  1 

Lines  155-168   do  the  same  as  lines  lUl-155  for  team  2 

Lines    169-175    change  distance   attributes   for   all 

maintenance  units 

Line  176   print  battle  results 

Line  177  check  to  see  if  breakpoint  is  reached 

Line  178   check  to  see  if  in  split  brigade  configuration 

Lines  179-182   change  to  combined  brigade  configuration 

Lines  183-18U   schedule  next  battle 

Lines   185-187   if   in   combined   brigade  configuration   and 

breakpoint   has   been  met,  end   the   simulation   and   print 

message 

Lines  188-192   if   in  split  bigade  configuration   and  not  at 

breakpoint/  change  teams  and  schedule  the  next  battle 

Lines  193-19U   print  Job  List  heading 

5.   The  BREAK  Event 

This  routine  serves  the  purpose  of  creating  a  job 
entity  for  each  successful  recovery  mission.  Once  created, 
the  attributes  of  the  job  entity  are  also  determined.  These 
attributes  include  the  workorder  number,  the  vehicle  type, 
and   the  firepower   and   mobility   damage  percentages.    The 
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routine  constrains  the  amount  of  damage  that  can  be 
sustained  by  the  vehicle  depending  on  the  vehicle  type  and 
whether  or  not  the  vehicle  was  damaged  in  combat.  A  system 
failed  vehicle  will  be  either  mobility  or  firepower  damaged 
but  not  both^  and  a  maximum  of  0.2  damage  percentage  Is 
allowed.  Also  If  the  vehicle  type  is  armored  personnel 
carrier/  Its  firepower  damage  percentage  can  attain  a 
maximum  value  of  0.2  since  the  vehicle  is  still  valuable 
even  if  it  cannot  shoot.  The  component  damage  is  determined 
by  calling  the  ASSESS. DAM  routine.  Finally^  the  job  is 
scheduled  for  arrival  at  the  maintenance  detachment  that 
supports  the  owning  battalion. 

Explanation  of  the  coding: 
Lines  2-5   define  local  variables  for  the  routine 
Line  7   draw  random  comparitor 
Line  8   Increment  workorder  number  counter 

Lines  9-lU   create  a  job   entity  and  assign  workorder  number 
and  assign  vehicle  type  using  the  random  comparitor 
Line  15   if  the  job  Is  a  system  failure^  branch  to  ON 
Lines  16-17   If  the  job  Is  a  combat  damaged  vehicle^  let  the 
maximum  possible  value  of  Its  MOB. DAM  attribute  be  1.0 
Line  18   If  the  job  Is   combat  damaged  but  still  mobile^  let 
the  maximum  possible  value  of  its  MOB. DAM  attribute  be  0.2 
Lines  19-22   randomly  draw  FP.DAM   and  MOB. DAM  for  jobs  with 
vehicle  type  of  TANK  and  branch  to  DOWN 
Lines  23-25   randomly  draw  FP.DAM   and  MOB.DAf^  for  jobs  with 
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vehicle  type  of  APC  and  branch  to  DOWN 

Line  26    draw  random   comparltor  to   determine  If   a  system 

failed  vehicle  Is  either  mobility  or  firepower  damaged 

Lines  27-29   randomly  determine  either  FP.DAM  or  MOB. DAM  for 

system  failed  vehicle 

Lines  30-32   call  ASSESS. DAM   routine  to  determine  component 

damage 

Lines  33-38   print  line  of  output  for  Job  List  for  TANK  jobs 

Lines  39-UU   print  line  of  output  for  Job  List  for  APC  jobs 

Line   45-51   schedule   arrival   event   at   the   appropriate 

detachment 

6.   The  ARRIVAL  Event 

This  event  represents  the  arrival  of  a  job  at  a 
maintenance  unit,  either  a  forward  detachment  or  the 
maintenance  company.  If  the  type  of  repair  needed  by  the 
vehicle  cannot  be  performed  at  the  unit/  the  job  Is 
evacuated.   Otherwise  It  is  prepared  for  initial  inspection. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  for  the  routine 
Line  k      set  JOB  and  MAINT.UNIT  entity  pointers 
Line  5   increment  number  of  vehicles  at  the  unit 
Lines  5-7   check  to  see  if  unit  has  personnel  to  do  the  type 
of  work  necessary 

Lines  8-11   schedule  a  MOVE. REAR  to   evacuate  job  If  unit  is 
not  capable  of  performing  work  and  put  the  job  in  WT. QUEUE 


89 


Lines  12  -13   if  unit  has   capability  to  do  repair^  check  to 

see  if  all   the  inspectors  are  busy;   if  so^  put  the   job  in 

Wl. QUEUE 

Line  Ih      if  an  inspector  is   idle^  reduce  the  number  of  idle 

inspectors 

Lines  15-23   schedule   a  DIAGNOSIS  event  at   the  appropriate 

randomly  drawn  time  depending  on  the  unit 

7.   The  REPAIR  Event 

The  REPAIR  event  is  the  routine  that  effects  the 
actual  repair  of  the  job.  Each  REPAIR  event  has  a  job  and  a 
crew  specified  in  the  argument  list^  and  the  type  of  damage 
repaired  is  dependent  on  the  MISSION  attribute  of  the  crew. 
As  such^  vehicles  with  both  mobility  and  firepower  damage 
require  two  REPAIR  events. 

Explanation  of  the  coding: 
Lines  2-6   definition  of  local  variables  in  the  routine 
Lines  7-9   set  JOB  and  MAINT.UNIT  entity  pointers 
Lines  10-13    check  to  see   if  parts   are  to  be   provided  by 
cannibal ization^   if    so   call   SUBSTITUTION    routine   and 
exchange  parts  in  source  vehicles 

Lines  l^i-lS   when  crew  is   automotive^  set  MOB. DAM  attribute 
to  0.0  and  remove  the  job  from  the  AUTOMOTIVE  set 
Lines  16-17   when  crew  Is  armament^   set  FP.DAf-l  to   0.0  and 
remove  the  job  from  the  ARMAMENT  set 
Lines   18-28    if   job   is   totally   repaired^   file   it   in 
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CLOSED.  JOB  set/  calculate  Its  DOV/N.TIME  attribute^  increment 

the  number   returned  to   battle,  remove   job  from   any  other 

sets  it  is  in,  and  reduce  the  number  of  vehicles  at  the  unit 

Lines   29-31    Increase   number  of   systems   alive   in   the 

appropriate  team 

Lines   32-34   If   job  is   not   totally  repaired   file  it   In 

WS. QUEUE 

Lines  35-36   if  WS. QUEUE  is  empty,  branch  to  CONTROL 

Lines  37-'*2   search   WS. QUEUE  for  a  job  the  crew   can  do.  If 

one  is  found  branch  to  TAKE 

Lines   ii3-t*5   check   to   see  if   WP. QUEUE   and  WT. QUEUE   are 

empty.  If   so  set  OCCUPATION  attribute   of  crew  to   idle  and 

return 

Lines  kb-Sk        check  the  WP. QUEUE  for   a  job  for   which  parts 

can  be  obtained  through  cannibal i zat Ion 

Lines  55-67    If  one   is  found,   call  SUBSTITUTE   routine  to 

exchange  the  parts  and  schedule  another  REPAIR  event 

Lines  63-69   if  none  Is  found,  and  job  Is  at  the  maintenance 

company,  set   the  OCCUPATION  attribute   of  the  crew   to  idle 

and  return 

Lines  70-98   same  as  lines  37-69  for  jobs  in  WT. QUEUE 

Lines  99-115   schedule  another  REPAIR  event  for  job  found  In 

WS. QUEUE 

8.   The  PARTS. COME  Event 

This   event   represents   the  arrival   of   the   parts 
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needed  to  repair  a  particular  job.  An  attempt  is  then  made 
to  find  an  idle  crew  to  perform  repairs.  If  one  is  founds  a 
REPAIR  event  is  scheduled.  Sometimes^  parts  are  obtained 
for  a  job  through  canni bal i zat ion  before  the  parts  arrive 
through  the  supply  system.  In  this  case^  the  PARTS. COME  is 
Ignored. 

Explanation  of  coding: 
Lines  2-U   definition  of  local  variables  in  the  routine 
Line  5   set  JOB  and  MAINT.UNIT  entity  pointers 
Lines  6-7   check  to  see  if   parts  have  been  obtained  through 
cannibal  I zat lon^  if  they  have  return 

Lines  8-21  find  a  crew  to  repair  mobility  damage^  If  one  Is 
found  schedule  a  REPAIR 

Lines  22-23    If  no   Idle  crews  available^   file  the   job  In 
WS. QUEUE 
Lines  2k'5S      perform  lines  8-23  for  firepower  damage 

9.   The  DIAGNOSIS  Event 

This  event  represents  the  initial  Inspection  of  the 
vehicle  at  the  maintenance  unit.  As  such^  parts 
availability  Is  checked  both  through  the  supply  system  and 
through  cannl bal I zat lon^  and  a  crew  Is  located  to  do  the 
work.  If  parts  and  a  crew  are  founds  a  REPAIR  event  Is 
scheduled.  Otherwise  the  job  Is  placed  In  the  appropriate 
set. 

Explanation  of  the  coding: 
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Lines  2-7   definition  of  local  variables  In  the  routine 

Lines  8-9   set  entity  pointers 

Lines  10-11   set  the  number   of  subsystems  (FP)  depending  on 

the  vehicle  type 

Line  12   Increment  number  of  Idle  Inspectors 

Lines   13-15    set   the   probability   of   having   parts   and 

percentage  of   damage  to  be   fixed  depending  on  whether  the 

job  Is  at  the  company  or  at  a  detachment 

Line  16    check  to  see  if   vehicle  damage  exceeds   amount  of 

damage  that  can  be  fixed.  If  so  branch  to  EVAC. MAYBE 

Lines   17-18    draw   a   random   comparitor   and   compare   to 

probability  of  having  parts 

Lines  19-22   if  parts  not  available  call  CANNIBAL  routine  to 

try  to  find  them  by  cannibal  I zat Ion,  If  not  available  branch 

to  EVAC. MAYBE 

Lines   23-36   having   parts,  find   crew   to  repair   mobility 

damage  and   schedule  a  REPAIR  event;   If  none  found   file  In 

WS. QUEUE 

Lines  37-50   having  parts,   find  crew   to  repair   firepower 

damage  and   schedule  a  REPAIR  event;   if  none  found   file  In 

WS. QUEUE 

Lines   51-58    If   no   parts   are  found   and   job   Is   at   a 

detachment,  schedule  a  MOVE. REAR  event   to  evacuate,  file  In 

WT. QUEUE,  and  branch  to  NEXT 

Lines  59-63    If  vehicle  is   too  badly  damaged,   evacuate  it 

and  schedule  a  MOVE. REAR  event,  file  in  WT. QUEUE 


93 


Lines  6i*-68    If  no  parts   available  at  company,   schedule  a 
PARTS. COME  and  file  in  WP. QUEUE 

Lines   59-82    schedule   another  DIAGNOSIS   event   for   idle 
inspector  If  possible 

10.  The  MOVE. REAR  Event 

The  purpose  of  the  MOVE. REAR  event  is  to  evacuate 
jobs  to  higher  echelons  of  maintenance.  Sometimes,  if  a  job 
becomes  involved  in  a  cannibal i zat Ion,  it  will  have  been 
removed  from  the  WT. QUEUE.  In  this  case,  the  MOVE. REAR  is 
ignored.  If  a  vehicle  Is  evacuated  from  the  maintenance 
company.  It  is  filed  In  the  EVAC.REAR  set  and  is  no  longer 
considered  In  the  simulation. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  in  the  routine 
Line  k      set  entity  pointers 

Line  5   if  job  is  not  in  the  WT. QUEUE,  ignore  the  MOVE. REAR 
Line  6   reduce  number  of  vehicles  at  unit 

Line  8-15    schedule  an  ARRIVAL   at  the  maintenance  company 
for  jobs  at  a  detachment 

Lines  16-25    file  job   in  EVAC.JOB  and   remove  it   from  all 
other  sets 

11.  The  DAYLIGHT  Event 

The  DAYLIGHT  event  represents  the  reduced 
capabilities  of  recovery  vehicleles,   and  the  reduced  convoy 
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speeds  of  moving  units  during  periods  of  reduced  visibility. 
The  routine  changes  the  values  of  several  of  the  variables 
back  and  forth  between  their  day  and  night  values. 

Explanation  of  the  coding: 
Line  2   return  If  battle  sequence  has  not  begun 
Lines  3-12   change  from  day  values  to  night  values 
Lines  13-14   schedule  daybreak  in  9  hours  and  return 
Lines  15-23   change  from  night  values  to  day  values 
Lines  2U-25   schedule  nightfall  in  15  hours  and  return 

12.   The  JUMP  Event 

This  event  portrays  the  movement  of  a  forward 
detachment  to  a  new  position^  and  the  suspension  of 
maintenance  activities  during  the  move.  AlsO/  vehicles  that 
are  not  mobile  do  not  accompany  the  unit  on  the  move^  and  are 
either  evacuated  or  destroyed.  The  time  for  the  unit  to 
move  and  setup  the  new  maintenance  site  is  calculated  and  a 
GET. THERE  event  Is  scheduled  for  the  end  of  that  time 
period. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  in  the  routine 
Line  k      set  MAINT.UNIT  entity  pointer 
Line  5   compute  time  it  takes  the  unit  to  move 
Line  6   schedule  a  GET. THERE  event 

Lines  7-13   remove  and  destroy  non-mobile  jobs  in  WS. QUEUE 
Lines  lU-19   remove  and  destroy  non-mobile  jobs  In  Wl .QUEUE 
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Lines  20-32    remove  and  destroy   all  jobs  In   WT. QUEUE  that 

will  not  be  evacuated  by  the  time  the  unit  moves 

Lines  55'k7      remove   and   destroy   all  non-mobile   jobs   In 

ARMAMENT  set  and  reschedule  REPAIR   events  for  jobs  that  are 

mobile  for  a  time  after  arrival  at  the  new  site 

Lines  U8-57   remove  and  destroy  jobs  in  AUTOMOTIVE  set 

Line  58   set   T.JUMP  attribute  of  maintenance   unit  to  delay 

job  arrivals  at  the  unit 

13.   The  GET. THERE  Event 

This  event  marks  the  resumption  of  maintenance 
activities  by  the  maintenance  unit  at  the  conclusion  of  a 
move.  A  check  is  made  to  make  sure  that  the  source  vehicles 
have  accompanied  the  unit  on  the  move/  for  any  job  Involved 
In  a  cannl bal Izat Ion.  The  crews  are  then  matched  with  jobs 
to  be  done  and  the  maintenance  mission  Is  resumed. 

Explanation  of  the  coding: 
Line  2   definition  of  local  variables  in  the  routine 
Line  3   set  MAINT.UNIT  entity  pointer 
Line  k      set  T.JUMP  attribute  to  0.0 

Lines   5-11   check   to   see   If  cannl bal I zat ions  are      still 
po  s  s  I  b  1  e 

Lines  12-23    schedule  a  MOVE. REAR   event  for  each   job  that 
can  no  longer  be  cannibalized 

Lines  2U-37   match   jobs  with  automotive  crews   and  schedule 
REPAIR  events 
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Lines  38-51   match  jobs   with  armament   crews  and   schedule 
REPAIR  events 

n.       The  STOP. SIMULATION  Event 

As  its  name  Implies/  the  purpose  of  this  event  Is 
to  end  the  simulation  and  output  the  results.  The  routine 
is  called  at  the  end  of  each  replication  and  prints  out 
summary  statistics^  the  backlog  of  jobs  at  every  maintenance 
unit/  and  lists  of  all  the  jobs  that  were  successfully 
completed  and  evacuated  out  of  the  brigade  area.  The 
START. OVER  routine  Is  also  called  to  reset  the  variable 
values  for  the  next  replication. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  In  the  routine 
Lines  ^-6   compute  the  number  of   repairmen  alive  at  the  end 
of  the  simulation 

Lines  7-10   compute  summary  statistics 
Lines  11-19   print  summary  statistics 

Lines  20-72   print  the  backlog  for  each  maintenance  unit 
Lines  73-78   print  list  of  successfully  completed  jobs 
Lines   79-83    print   list  of   jobs   evacuated   outside   the 
brigade  area 
Line  81*   call  START. OVER  routine 

15.   The  START. OVER  Routine 

This   routine  Is   called   from  the   STOP. SIMULATI  ON 
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event  to  initialize  the  program  for  a  new  replication.  All 
counters  are  set  back  to  zero^  the  totals  of  statistics  kept 
by  the  program  are  resets  all  scheduled  events  are 
cancelled^  all  jobs  in  the  system  are  filed  in  the  KILL. JOB 
set  and  then  destroyed,  the  CAN.REC  and  DAM.REC  arrays  are 
set  to  zero,  and  the  maintenance  units  are  destroyed. 

Explanation  of  the  coding: 
Lines  2-6   zero  variables 

Lines  7-9   reset  system  statistic  keeping  routines 
Lines  10-32   cancel  and  destroy  all  scheduled  events 
Lines  33-78   remove   all  jobs  from  the  sets  they   are  in  and 
file  them  in  the  KILL. JOB  set 

Lines  79-80   destroy  the  jobs  In  the  KILL. JOB  set 
Line  81   zero  the  CAN.REC  array 
Line  82   zero  the  DAM.REC  array 
Lines  83-85   destroy  the  MAINT.UNIT  entitles 

16.   The  ASSESS. DAM  Routine 

The  ASSESS. DAf^  routine  is  called  by  the  BREAK  event 
to  stochastically  determine  the  component  damage  of  a  job  as 
a  function  of  the  previously  computed  FP.DAM  and  MOB. DAM 
values.  The  FP.DAM  and  MOB. DAM  values  correspond  to  the 
proportion  of  major  subsystems  of  each  type  that  have  been 
damaged.  This  routine  randomly  picks  the  subsystems  that 
are  damaged.  A  random  number  from  between  0.0  to  1.0  is 
drawn  and  Is  assigned  to   the  chosen  subsystem.   This  number 
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represents  the  proportion  of  damaged  parts  in  the  subsystem. 
The  values  are  stored  in  the  DAM.REC  array  and  are  indexed 
by  the  workorder  number  of  the  job.  The  component  damage 
values  are  used  in  the  CANNIBAL  routine. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  In  the  routine 
Line  k      set  JOB  entity  pointer 

Lines  5-6  set  number  of  subsystems  depending  on  vehicle 
type 

Line  7   set  local  variable  equal  to  workorder  number  of  job 
Lines  8-9   compute  number  of   damaged  mobility  subsystems  if 
any 

Line  10  draw  a  number  corresponding  to  one  of  the 
subsystems 

Lines  11-12  if  the  particular  subsystem  has  not  been  chosen 
before/  draw  a  random  number  and  assign  the  damage 
percentage 

Line  13   Increment  counter  and   repeat  sequence  until  values 
are  obtained  for  all  damaged  subsystems 
Lines  lit-21   repeat  sequence  for  firepower  subsystems 

17.   The  CANNIBAL  Routine 

This  routine  is  called  in  order  to  determine  if 
parts  can  be  obtained  for  a  job  through  canni bal izat ion. 
This  is  done  by  comparing  the  component  damage  values  of  the 
job  with  those  of  potential  source  vehicles.   If  a  source  of 
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parts  is  found,  the  entity  number  of  the  source  job  Is 
recorded  In  the  CAN.REC  array.  The  routine  returns  to  the 
calling  event  with  a  number  corresponding  to  the  number  of 
source  vehicles  If  enough  were  found,  or  zero  If  the 
cannibal  I zat Ion  attempt  was  unsuccessful. 

Explanation  of  the  coding: 
Lines  2-9   definition  of  local  variables  In  the  routine 
Line  10   set  JOB  and  MAINT.UNIT  entity  pointers 
Line  11   set  workorder  number  of  job  In  temporary  location 
Lines  12-13   set   number  of  subsystems  depending  on  vehicle 
type  of  job 

Line  Ik  reserve  core  for  temporary  storage  of  entity 
numbers  for  source  vehicles 

Lines  15-17   count  number  of  damaged  subsystems  of  job 
Lines  18-19   check  each  job  In  WT. QUEUE  as  a  possible  source 
vehicle 

Line  20   loop  through  all  subsystems 

Line  21   branch  to  LOOP  If  no  parts  needed  for  subsystem 
Line  22   branch  to  LOOP  If  parts  already  found  for  subsytem 
Line  23    If  component   damage  of   job  Is   greater  than   the 
serviceable   percentage  of   parts   In   the  potential   source 
vehicle,  branch  to  LOOP 
Line  2'*   draw  a  random  comparltor 

Line  25   If   random  comparltor  is  larger   than  proportion  of 
serviceable  parts,  branch  to  LOOP 
Line  26   parts  found,  record  entity  number  of  source  vehicle 
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Line  27   add  1   to  number   of  source   vehicles  found,   mark 

parts   as  found   by  adding   1   to  element   of  DAM.REC   array 

pertaining  to  source  vehicle 

Line  28   end  of  search  loop  for  one  potential  source  vehicle 

Line  29    check  to   see  If  number   of  source   vehicles  found 

equals  number  needed.  If  so  branch  to  AHEAD 

Line  30   end  of  search  loop  for  vehicles  In  the  WT. QUEUE 

Lines  31-i*3   do  search  procedure  for  vehicles  In  WP. QUEUE 

Lines  UU-U5   after  all  searches  are   complete.  If  not  enough 

source  vehicles  found,  set  CAN  to  zero  and  return 

Lines  US-SO   prepare  to  cannibalize  by  removing  job  from  the 

set  It  Is  In  and  placing  It  In  WS. QUEUE 

Lines  51-55   cancel  evacuations  for  source  vehicles 

Lines  56-67   cancel  PARTS. COME   events  for   source  vehicles 

and  reschedule   them  either   at  their   original  time   or  the 

time  the  new  parts  will  arrive,  whichever  Is  later 

Lines  68-73   find  an  empty  row  of  the  CAN.REC  array  and  set 

IN. CAN  attribute  of  the  job  to  the  row  Index 

Line  7k      store  entity  numbers  of   source  vehicles  In  the  row 

of  the  CAN.REC  array 

Line  75   release  core  for  temporary  storage 

18.   The  SUBSTITUTE  Routine 

This  routine  Is  called  by  the  REPAIR  event  to 
actually  substitute  the  parts  that  were  found  In  the 
CANNIBAL  routine.  In  order  to  perform  the  work.   The  routine 
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checks  the  MISSION  attribute  of  the  crew  performing  the 
repair  and  removes  the  parts  only  from  the  corresponding 
subsystems.  Evacuations  are  rescheduled  for  those  jobs  that 
need  them^  and  the  row  of  the  CAN.REC  array  is  zeroed  out. 

Explanation  of  the  coding: 
Lines  2-3  definition  of  local  variables  in  the  routine 
Line  h      set  entity  pointers 

Line  5   set  temporary  variable  to  workorder  number  of  job 
Lines   6-7   determine  number  of   subsystems   depending  on 
vehicle  type 

Lines  8-9   determine  subsystems   for  which  substitutions  are 
to  be  made  depending  on  MISSION  attribute  of  crew 
Line  10   loop  through  appropriate  subsystems 
Line  12   add  the  proportion  of  damaged  parts  for  the  job  to 
those  of  the  source  vehicle 

Line  13-lt»  reduce  number  of  jobs  to  which  source  vehicle 
will  supply  parts  and  check  to  see  If  the  number  Is  zero.  If 
not  branch  to  ZERO 

Lines  15-18  If  It  Is  zero^  and  source  vehicle  Is  In 
WT. QUEUE  reschedule  an  evacuation 

Line  19-20   zero  out  the  element  of  the  CAN.REC  array 
Line  21   end  of  loop 

19.   The  PET. ALLOC  Routine 

In  each  BATTLE   event,  the  DET. ALLOC  routine   Is 
called   to   determine  which.   If   any,   of    the  forward 
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detachments  are  to  be  attacked  by  the  enemy.  A  probability 
of  detection  is  computed  for  each  forward  detachment  as  a 
function  of  its  distance  from  the  fighting  and  the  number  of 
vehicles  present  at  the  unit.  The  ATTACK  routine  is  then 
called  for  each  detected  unit. 

Explanation  of  the  coding: 
Lines  2-i*   definition  of  local  variables  for  the  routine 
Line  5   loop  through  each  forward  detachment 
Lines  5-7   compute  probability  of  detection  for  the  unit 
Line  8   calculate  number  of  personnel  present  at  the  unit 
Lines   9-10   if   unit  already   destroyed   print  message   and 
branch  to  LOOP 

Line  11   draw  random  comparltor 

Lines  12-16   if   comparltor  is  less  than   the  probability  of 
detection   print   message^  call   ATTACK   routine^   calculate 
number  of  personnel  killed  In  attack^  print  message 
Lines  17-19   If  comparltor  Is  larger  than  probability/  print 
message  that  unit  was  not  detected^  repeat  for  all  units 

20.   The  ATTACK  Routine 

The  ATTACK  routine  Is  called  by  the  DET. ALLOC 
routine  each  time  a  forward  detachment  is  detected  by  the 
for  the  duration  of  the  attack.  The  repairmen  left  alive  at 
the  end  of  the  attack  are  then  reorganized  Into  crews^  and 
work  Is  resumed. 

Explanation  of  coding: 
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Lines    2-5      definition  of    local    variables    in    the    routine 

Line   6      set   MAINT.UNIT   entity    pointer 

Line    7      evaluate      attrition   of    inspector   and      replace   liim    if 

he    is   ki 1 1 ed 

Lines  9-15   evaluate  attrition  for   each  individual   in  the 

unit 

Lines  16-19   calculate  number  of  crews  of  people  left  alive 

Lines   20-21   determine   if   there  is   an   odd  repairman   of 

ei  ther  type 

Line  22    loop  through   all  crews   in  maintenance   unit  that 

were  busy  prior  to  attack 

Line  23-25   update   number  of  personnel  alive   in  automotive 

crews  until  supply  of  live  repairmen  is  exhausted 

Lines  25-32   when  supply  of  live  repairmen  is  exhausted^  set 

the  OCCUPATION  attribute  of  the   remaining  crews  to  DEAD  and 

cancel  the  REPAIR  events  for  jobs  they  are  working  on 

Lines  33-Ul   do  sequence  of  lines  23-32  for  armament  crews 

Lines  U2-50   if   any  live  repairmen  are  left   assign  them  to 

idle  crews 

Lines  50-58    if  there  is   an  odd   number  of  either   type  of 

repairmen  assign  him  to  a  crew 

Lines  59-5ii   cancel  all  REPAIR   events  and   reschedule  them 

after  the  attack  is  over^  set  flag  attribute  (LOOP.CH)  to  1 

Lines  65-66   set  flag  attribute  back  to  0 

Lines  67-72   cancel  all  DIAGNOSIS  events  and  reschedule  them 

after  the  attack  is  over^  set  flag  attribute  to  1 
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Lines  ys-TU   set  flag  attribute  back  to  0 

Lines  75-76   set  entity  pointers 

Lines   77-116   if   no  more   automotive  repairmen   at   unlt^ 

evacuate  all  jobs   at  the  unit  with   mobility  damage/  cancel 

all  repairs  of  automotive  jobs^  cancel  PARTS. COME  events  for 

these  jobS/  cancel  DIAGNOSIS  events  for  these  jobs 

Lines  117-156   do  same  sequence  as  lines  77-116  for  armament 

jobs  if  there  are  no  more  armament  repairmen 

,  21.   The  COMP. TIMES  Routine 

The  purpose  of  this  routine  is  to  convert  the  time 
related  values  that  It  reads  as  data  into  beta  probability 
distribution  parameters  that  can  be  used  with  the  SIMSCRIPT 
beta  random  number  generator  to  generate  random  times  to 
completion  for  the  various  maintenance  functions.  The  beta 
parameters  are  stored  in  the  A  array;  and  the  time  values  in 
the  form  of  the  minimum^  expected^  and  maximum  times  for 
completion  of  the  activity^  are  stored  in  the  T. ACTION 
array. 

Explanation  of  the  coding: 
Lines  2-3   definition  of  local  variables  In  the  routine 
Line  k      print  heading 
Lines  5-10   compute  beta  parameters 
Lines  11-12   print  values 
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22.  The  INIT. PRINT  Routine 

This  routine  is  used  to  print  the  data  values 
supplied  by  the  user  as  Inputs.  They  include  parameters 
that  govern  the  maintenance  process^  as  well  as  the  battle 
and  recovery  operations.  Since  the  routine  is  composed  of 
print  statements  and  format  specification  statements^  no 
explanation  of  the  coding  is  given. 

23.  The  GAMMA. F  Routine 

In  generating  beta  distributed  random  numbers^ 
SIMSCRIPT  uses  its  internal  gamma  random  number  generating 
routine.  Some  of  the  parameters  that  are  generated  for  use 
in  the  gamma  routine  are  such  that  an  error  is  produced. 
Consequently  this  routine/  which  is  more  robust/  was 
suggested  by  the  designers  of  SIMSCRCRIPT.  This  routine 
overrides  the  internal  GAMMA. F  routine.  No  explanation  of 
the  coding  is  given. 

D.   VARIABLE  DEFINITIONS 
1.   Input  Variables 

The  values  of  the  following  list  of  variables  are 
supplied  by  the  user.  SIMSCRIPT  reads  data  in  free  format/ 
and  it  is  only  important  that  the  values  be  input  in  the 
correct  order/  and  that  the  data  be  consistant  with  their 
definition  in  the  program  in  terms  of  integer  or  real  mode. 
These  variables  are  listed  in  the  order  that  they  are  input. 
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REP. COUNT  -  integer^  number  of  repllcatfons  desired 
SEED  -  Integer^   number  that  generates  array  of  random 
number  seeds 

P. TANK  -  real/  proportion  of  tanks  in  the  blue  force 
W. FIGHT   -    integer^   specifies    the   initial    force 
configuration  and  has  the  following  possible  values: 

1  -  split  brigade   configuration  with  battalions  1 
and  2  engaged  first 

2  -  split  brigade   configuration  with  battalions  3 
and  k   engaged  first 

3  -  combined  brigade  configuration 

X.RAT  -  real/  initial  exchange  ratio  (red/blue) 

BZERO  -  real/  initial  blue  force  level 

RZERO  -  real/  initial  red  force  level 

BP  -  real/  red  breakpoint;   proportion  of  red  survivors 

that  cause  the  red  force  to  assume  defensive  posture 

R2.ECH   -  real/   red   second   echelon  rate  of   advance 

(km/hr) 

CCSL  -   real/  cross  country   speed  of   recovery  vehicle 

when  loaded  (km/hr) 

CCSU  -   real/  cross  country   speed  of   recovery  vehicle 

when  unloaded  (km/hr) 

MCPD.ZERO    -    real/    intial    distance      from    the   PLOT    to    the 

forward  detachments  (km) 

S.ECH  -  real/  distance  between  red  echelons  (km) 

SELF. LIKE  -   real/  proportion  of  damaged   vehicles  that 
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are   self  or  like  vehicle  recovered 

UNREC  -  reaU   proportion  of  damaged  vehicles   that  are 

unrecoverabl e 

R.VEHS  -  real^  total  number  of  recovery  vehicles  in  the 

brl gade 

TH  -   real/  average  hookup   time  for   recovery  missions 

(mlns) 

LOS. PR  -  real,  probability  of  line  of  sight 

TGT.PRI  -   real/  priority  of   recovery  vehicles   as  red 

targets 

PR. INC. ID  -   real/  probability  that  a   recovery  vehicle 

will  be  Incorrectly  Identified  on  the  battlefield 

LEAD. TIME  -  real/   amount  of  time  In   simulation  before 

first  BATTLE  event  (hours) 

MTTF   -  real/   mean  time   to  failure  of  blue   vehicles 

(operating  hours) 

USE. PER  -   real/  proportion  of   time  that   the  vehicles 

are  operated 

D  -  real/  disorientation   factor  for  recovery  vehicles; 

number  between  0.0  and  1.0 

COD   -   real/   Initial  distance   from   the  maintenance 

company  to  the  PLOT  (km) 

ALFA   -    real/   shaping   factor   for    probability   of 

detection  formula 

CON. SPEED   -    real/   convoy   speed   for   movement   of 

maintenance  units  (km/hr) 
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SETUP. TIME  -  real/   time  needed  by  maintenance   unit  to 

resume  maintenance   activities  once   new   position   is 

reached  (minutes) 

B.DIST  -   real/  distance   from  the   PLOT  to   detachment 

that  causes  detachment  to  move   to  a  different  position 

(km) 

PK.PERS  -  real/  probability   that  an  individual  soldier 

will   become   a   casualty  when   forward   detachment   is 

attacked 

NMC. FOLKS   -    real/   initial    number   of    automotive 

repairmen  at  the  maintenance  company 

NFC. FOLKS  -  real/  initial   number  of  armament  repairmen 

at  the  maintenance  company 

V.CO.INIT   -    real/   number   of   vehicles    owned   by 

maintenance  company 

N.FWD.DET  -  Integer/  number  of  forward  detachments 

NMF. FOLKS   -    real/   Initial    number   of   automotive 

repairmen  at  each  forward  detachment 

NFF. FOLKS  -  real/  Initial   number  of  armament  repairmen 

at  each  forward  detachment 

V.FS.INIT   -  real/   number  of   vehicles  owned   by   the 

forward  detachments 

N.3NS  -  integer/  number  of  supported  battalions 

P. MOB  -   real/  proportion  of   system  failures   that  are 

mobi 1  I ty  related 

P.FWD.FIX   -   real/   percent   of   damage   that   can   be 
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repaired  at  a  forward  detachment 

PR.  HAVE.  PARTS.  F'WD  -  rea],    probability   that  parts   are 

available  at  a  forward  detachment 

PR. REAR. HAVE. PARTS  -   real,  probability  that   parts  are 

available  at  the  maintenance  company 

P. CO. FIX  -  real/  percent  of  damage  that  can  be  repaired 

at  the  maintenance  company 

T. ACTION  -  2  dimensional  (8  by  3)  real  array,  8  sets  of 

3  time  values  for  the  following  activities: 

1  -  Inspection  time  at  forward  detachment 

2  -  Inspection  time  at  maintenance  company 

3  -  repair  time  for  automotive  jobs 
k   -  repair  time  for  armament  jobs 

5  -  waiting  time  for  repair  parts  delivery 

5   -  movement   time  from   forward   detachment   to 

company 

7  -  waiting   time  for   evacuation   from   forward 
detachment  to  company 

8  -  waiting  time  for   evacuation  from   company  to 
division  rear 

2.   Global  Variables 

The  following  variables  are  globally  defined  In  the 
preamble,  and  therefore  have  the  same  value  throughout  the 
program. 

A   -  real,   2   dimensional  array,   values   of  the   beta 
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parameters 

ARM. REP. TIME  -   real^  temporary  location  of   the  repair 

times  for  armament  jobS/   TALLY  statement  computes  mean 

of  this  variable 

ATT. CONST  -  real/   relates  exchange  ratio  to   number  of 

blue  systems  alive 

B. ALIVE  -  real/  number  of  blue  systems  alive 

BAT.NUM   -   integer^   counter    for   number  of   battle 

sequences 

Bl. ALIVE  -  real/  number  of  blue  systems  alive  in  team  1 

B2. ALIVE  -  real/  number  of  blue  systems  alive  in  team  2 

CAN.REC  -  integer/  2  dimensional   array/  stores  the  job 

entity  numbers  of  source  vehicles  for  cannibal izat ion 

CAS. COUNT   -   real/   number  of   blue   casualties   in   a 

battle/  TALLY  statement   computes  sum  of  the   values  of 

this  variable 

COUNT   -   integer/   battle   sequence   counter   used   to 

Initiate  divisional  echelon  spacing 

DAM.REC  -   real/  2  dimensional  array/   stores  component 

damage  percentages  for  all  jobs 

DOV/N.TIME   -  real/   repair   cycle   time  for   individual 

jobS/   a  TALLY   statement   computes   the  mean   of   this 

variable 

EX. RAT  -  real/  exchange  ratio  (red/blue) 

PLOT. MOVE  -  real/   rate  of  movement  of   the  PLOT  during 

battle  (km/hr) 
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LIGHT. STAT   -  rea] ,       records    whether   day   or   night 
conditions  exist/  has  the  following  possible  values 

DAY  -  defined  to  mean  1.0 

NIGHT  -  defined  to  mean  0.5 
LS  -  real/  probability  of  line  of  sight 
M. REP. TIME   -  real/   temporary  location  of  the   repair 
times  for  automotive  jobs;  TALLY  statement  computes  the 
mean  of  this  variable 

MCPD  -  real/   distance  from  forward  detachment   to  PLOT 
(km) 

MCPDl  -   distance  from   detachments  in   team  1   to  PLOT 
(km) 

MCPD2  -   distance  from   detachments  In   team  2   to  PLOT 
(km) 

NUM. EVAC. REAR  -   Integer/  number  of   vehicles  evacuated 
out  of  the  brigade  area 

NUM. RETURN. BATTLE    -   integer/    number   of    vehicles 
repaired  and  returned  to  the  fighting  force 
QUIT  -   Integer/  number  of   system  failures   since  last 
BATTLE  event 

QUITl  -   Integer/  number  of   system  failures  in   team  1 
since  last  BATTLE  event 

QUIT2  -   integer/  number  of   system  failures  in   team  2 
since  last  BATTLE  event 

R. CAS. COUNT   -  real/   number   of   red  casualties   in   a 
battle/  TALLY  statement  computes  the   sum  of  the  values 
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of  this  variable 

REC.NUM  -  real,  number  of  recovery  vehicles  alive 

RECl.NUM  -  real/   number  of  recovery  vehicles   alive  In 

team  1 

REC2.NUM  -  real/   number  of  recovery  vehicles   alive  In 

team  2 

S.CAS  -  real  sum  of  CAS. COUNT  from  TALLY  statement 

S.R.CAS  -  real/  sum  of  R. CAS. COUNT  from  TALLY  statement 

SPACE. ECH  -  real/  red  echelon  spacing  (km) 

SUM. NEED. REC  -   real/  sum  of  number   of  vehicles   that 

need   recovery   In   each    battle;   computed   by   TALLY 

statement  from  sum  of  TOT. NEED. REC 

SUM. REC  -  real/  tallied  sum  of  TOT. REC  variable 

T. PARTS. COME  -  real/  time  a   job  waits  for  parts:  TALLY 

statement  computes  mean  of  this  variable 

Tl.TIME   -   real/   time   required   to   perform   Initial 

Inspection;  TALLY   statement  computes  the  mean   of  this 

variable 

TOT. FOLKS  -  real/  total  number  of  maintenance  personnel 

In  the  brigade  area  at  the  start  of  the  simulation 

TOT. NEED. REC   -   Integer/  number   of   vehicles   needing 

recovery  In  a  battle;  TALLY   statement  computes  the  sum 

of  the  values  of  this  variable 

TOT. REC  -   Integer/  number  of   vehicles  recovered   in  a 

battle;   TALLY   statement   computes   the   sum  of   this 

variable 
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TRY  -  integer^  replication  counter 

WHO. FIGHT  -   integer^  same  as  W.FIGHT^   specifies  which 

team  Is  engaged  In  battle 

WORK. ORDER  -  Integer^  running   counter  of  jobs  entering 

maintenance  system 


114 


APPENDIX  D   COMPUTER  OUTPUT 
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APPENDIX    E       PROGRAM    LISTING 

1  PftERHfiLE 

2  NQRMALLT  MODE  IS  INTEGER 

3  THE  STSTEH  SUNS  fl  SUP.8N 

U  THE  STSTEH  CRN  OMN  R  CLOSED. JOB  RNO  RN  EVRC.JOB  RNO  R  KILL. JOB 

5  EVENT  NOTICES  INCLUDE  FRILURE.  BRTTLE.ORTLIGHT  RNO  STOP.SIHULRTION 

6  EVERT  BRERK  HRS  R  SPEC.DRH  RNO  R  BN 

7  EVERT  PARTS. COHE  HRS  fl  SPEC. PART  RNO  fl  LEV. PART 
•  EVERT  RRRIVRL  HRS  R  SPEC.RRR  RNO  R  LEV.RRR 

9  EVERT  OIRGNOSIS  HRS  R  SPEC.OIRG  RNO  R  LEV.DIRG 

10  EVERT  HOVE.RERR  HRS  R  SPEC. JOB  RNO  R  LEVEL 

11  EVERT  REPRIR  HRS  RN  R.CREH.  R  SPEC. REP  RNO  R  LEV. REP 

12  EVERT  JUMP  HRS  R  LEV.JUHP 

19  EVERT  GET. THERE  HRS  R  LEV. GET 

IV  TEHPORART  ENTITIES 

IS  EVERT  NAIMT.UNIT  QMNS  R  SHOP,  R  HS. QUEUE.  R  MP. QUEUE.  R  HI. QUEUE.  R  NT. QUEUE. 
la  RN  RRMAHENT.  RN  RUTOMOTIVE.  HRS  RN  INSPECTOR, R  NAME.  R  VEH. COUNT.  R  Q.FLST 

17  AND  R  NH. FOLKS.  R  NF. FOLKS.  A  T.JUMP  AND  BELONGS  TO  A  SUP.BN 

18  EVERT  JOB  HAS  A  VEH.TTPE.  R  HO.NUH.  R  UNIT.  R  TIME. DOWN.  R  HOB.ORH.R  LOQP.CH. 

19  A  T.ARH.REP.  A  T.RUTO.REP.  R  REP. UNIT.  RN  IN. CAN.  A  TQT.QAH.  A  CflN.NUH. 

20  A  FP.OAH.  HAT  BELONG  TO  A  HS. QUEUE.  A  MP. QUEUE.  A  Ml. QUEUE.  A  CLOSEO.Jtt. 

21  AN  EVAC.JflB.  AN  ARMRHENT.  AN  AUTOMOTIVE.  A  HT. QUEUE.  A  KILL. JOB 

22  EVERT  CREW  HRS  R  MISSION.  AN  OCCUPATION.  AN  N. FOLKS  AND  BELONGS  TO  fl  SHOP 

23  DEFINE  UI. QUEUE  RS  A  SET  RANKED  BT  LOH  VEH.TTPE  RNO  THEN 

24  BT  LOU  TIHE.OOHN 

25  DEFIME  US.auEUE  RS  R  SET  RRNKEO  BT  LOH  VEH.TTPE  AND  THEN 

26  BT  LflU  TIHE.OOHN 

27  DEFINE  T.RRH.REP  RNO  T.RUTO.REP  AS  REAL  VARIABLES 
26  DEFINE  T.PflflT.CQHES  RS  R  RERL  VRRIABLE 

29  DEFINE  TIME.OOUN.  HOB. DAM.  FP.ORH  RS  RERL  VARIABLES 

30  DEFINE  X.BRT.  B.VEHS.  NHC. FOLKS.  NFC. FOLKS.  NFF. FOLKS.  NHF. FOLKS  RS  REAL 

31  VARIABLES 

32  DEFINE  H.FIGHT.  REP. COUNT.  TRT  RS  VARIABLES 
39  DEFINE  COM*. TINES  RS  R  ROUTINE 

34  DEFINE  CANNIBAL  AS  A  ROUTINE  GIVEN  2  RRGUHENT  TIELDING  1  VALUE 

SS  DEFINE  SUBSTITUTE  RS  A  ROUTINE  GIVEN  3  ARGUMENTS 

36  DEFINE  ASSESS.DAH  RS  R  ROUTINE  GIVEN  1  ARGUMENT 

37  DEFINE  OCT. ALLOC  AS  A  ROUTINE 

38  DEFINE  T.JUHP  AND  B.OIST  AS  REAL  VARIABLES 

39  DEFINE  CON. SPEED  RNO  SETUP. TIME  RS  REAL  VARIABLES 

«0  DEFINE  VEH. COUNT.  V.CO.INIT.  V.FS.INIT.  O.FLOT.  AND  ALFR  RS  REAL  VARIABLES 

41  DEFINE  CAN. FIX  RS  A  VARIABLE 

42  DEFINE  A  AND  T. ACTION  AS  a-DlMENSIONAL  REAL  ARRAYS 

43  DEFINE  DIES.  P.TANK.  BATTLE. TIME.  BUST,  P. HOB.  P.FIX.FHO. 

44  PH. HAVE. PARTS. FHO.  PR.RERR. HAVE. PARTS.  P. CO. FIX  AS  RERL 

45  VARIABLES 

46  DEFINE  ARM. REP. TIME  AND  M.REP.TIME  AS  RERL  VARIABLES 

47  TALLT  HERN. ARH. REP  RS  THE  HERN  OF  ARM. REP. TIME 

48  TALLT  NEAN.flUTO.REP  RS  THE  MEAN  OF  M.REP.TIME 

49  DEFINE  TI.TIHE  RS  A  RERL  VRRIR6LE 

50  TALLT  MEAN. TI.TIHE  RS  THE  MEAN  OF  TI.TIME 
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51  DEFINE  OOHN.TIHE  AS  R  REAL  VARIABLE 

52  DEFINE  TOT. FOLKS  AND  CAS. COUNT  AND  R.CAS.CNT   AS  REAL  VARIABLES 

53  DEFINE  BAT.NUH  AS  A  VARIABLE 

5V  TALLY  S.CAS  AS  THE  SUM  OF  CAS. COUNT 

55  TRLLT  S.R.CAS  AS  THE  SUM  OF  R.CAS.CNT 

56  TALLY  MEAN. OOHN.TIHE  AS  THE  HERN  OF  OOHN.TIHE 

57  TALLY  AVG.HP.TIME  AS  THE  HEAN  OF  T.PART.COHES 

58  DEFINE  CO.HAINT  TO  HEAN  0 

59  DEFINE  DETI.HAINT  TO  HEAN  1 

60  DEFINE  DET2.HAINT  TO  HEAN  2 

61  DEFINE  0ET3.HRINT  TO  HEAN  3 

62  DEFINE  OETii.HRiNT  TO  HERN  V 

63  DEFINE  IDLE  TO  HERN  0 
6«  DEFINE  BUSY  TO  HERN  1 

65  DEFINE  OERO  TO  HERN  2 

66  DEFINE  TRNK  TO  HERN  1 

67  DEFINE  APC  TO  HEAN  2 

68  DEFINE  AUTO  TO  HEAN  1 

69  DEFINE  RRH  TO  HERN  2 

70  DEFINE  SHOT  TO  HERN  1 

71  DEFINE  SYS.FRIL  TO  HERN  0 

72  DEFINE  NUH.EVRC.RERR  RND   NUH.RET.BRTTLE  RS  VRRIRBLES 
79  DEFINE  N. FOLKS.  NH. FOLKS.  NF. FOLKS  RS  RERL  VRRIRBLES 
7«  DEFINE  PK.PERS  RND  PK. TRUCK  RS  REAL  VARIABLES 

75  DEFINE  S.ECH  AS  A  REAL  VRRIRBLE 

76  DEFINE  COUNT  RS  R  VRRIRBLE 

77  DEFINE  DRH.REC  RS  R  RERL  2-DlHENSIONRL  RRRRY 

78  DEFINE  CRN.REC  RS  R  2-DlHENSIONRL  RRRRY 

79  DEFINE  TOT.DRH  RS  R  RERL  VRRIRBLE 

80  DEFINE  COO  RS  R  RERL  VRRIRBLE 

81  DEFINE  EX.RRT.  BZERO.  B.RLIVE.  RZERO.  R.RLIVE.  BP.  R.2ECH.  CCSL.  CCSU. 
62  MCPD,  SPRCE.ECH.  SELF. LIKE,  UNREC.  REC.NUM.  TH.  LS,  LOS. PR.  TGT.PRI. 

83  PR. INC. ID,  LERD.TIHE.  HTTP,  USE. PER.  RTT. CONST.  FLOT.HOVE  RS  REAL  VRRIRBLES 

8«l  DEFINE  DRY  TO  HERN  l.D 

85  DEFINE  NIGHT  TO  HERN  0.5 

86  DEFINE  D  RS  A  REAL  VRRIRBLE 

87  DEFINE   LIGHT. STRT  RS  R  RERL  VRRIRBLE 

88  DEFINE  HORK. ORDER  AND  N.BNS  RS  VRRIRBLES 

89  DEFINE  TOT.REC  RS  R  VRRIRBLE 

90  DEFINE  TOT. NEED. REC  RS  R  VRRIRBLE 

91  DEFINE  Bl.RLIVE  RND  B2.RLIVE  RS  RERL  VRRIRBLES 

92  DEFINE  UHO. FIGHT  RS  R  VRRIRBLE 

93  DEFINE  RECl.NUH  RND  REC2.NUH  RS  REAL  VARIABLES 
9(1  DEFINE  HCPDl  AND  HCP02  AS  REAL  VRRIRBLES 

95  DEFINE  HCPD.ZERO  RS  R  RERL  VRRIRBLE 

96  DEFINE  QUITI  RND  QUIT2  AS  VARIABLES 

97  DEFINE  QUIT  RS  R  VRRIRBLE 

98  DEFINE  PR. DAY. INC  AS  A  REAL  VARIABLE 

99  DEFINE  SHOTF  TO  HEAN  2 

100  TALLY  SUH.REC  AS  THE  SUH  AND  HEAN. REC  AS  THE  MEAN  OF  TOT.REC 
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101  TOLLY   SUM. NEED. REC   RS   THE   SUH      AND   flVG.NEED   flS   THE   MEAN  OF   TOT.NEED.REC 

102  DEFINE    SEED   RS   R   VRRIRBLE 

103  END 
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1  HRIN 

2  RESERVE  OHM. REC  (•«,»«)  fiS  550  8T  11 

3  RESERVE  CRN.REC(m,m)  RS  100  BT  11 
U  RESERVE  R(H.M)  RS  8  BT  2 

5  RESERVE  T.RCTION  («,«)  RS  8  BT  3 

6  DEFINE  NH  RS  R  RERL  VRRIRBLE 

7  DEFINE  l.J.K.N.RRM.N.FWO.DET.N.CROUP  RS  VRRIRBLES 

8  DEFINE  X  RS  R  RERL  VRRIRBLE 

9  DEFINE  F.  H.  NF,  LOF  RND  LOH  RS  RERL  VRRIRBLES 

10  RERD  REP. COUNT 

11  RERO  SEED 

12  LET  SEED.V(1)«SEED 

13  FOR  I«2  TO  9.  DO 

IV  LET  X'RRNOOH.Fd) 

15  LET  SEED.V(I)-SEE0.V(1)-»100 

16  LOOP 

17  LET  X»RflNDOH.F(l) 

18  LET  SEE0.V(1)-SEED.V(1)'»100 

19  RERD  P.TRNK 

20  RERO  H. FIGHT 

21  RERO  X.RRT.  BZERO.  RZERO.  BP.  R.2ECH.  CCSL.  CCSU 

22  RERD  HCPD.ZERO 

23  RERD  S.ECH,  SELF. LIKE.  UNREC,  R.VEHS.  TH 
21  RERD  LOS. PR,  TGT.PRI.  PR. INC. ID,  LEAD. TIME 

25  READ  HTTP,  USE. PER 

26  RERO  D 

27  RERO  COO  RND  RLFR 

28  RERO  CON. SPEED  AND  SETUP. TIME   RND  B.DIST 

29  RERO  PK.PERS 

30  READ  NMC. FOLKS.  NFC. FOLKS.  V.CO.INIT.  N.FUO.DET 

31  READ  NMF. FOLKS.  NFF. FOLKS.  V.FS.INIT 

32  READ  N.BNS.  P. MOB,  P.FIX.FHO.  PR. HAVE. PARTS. FHO,  PR. REAR. HAVE. PARTS, P. CO. FIX 

33  CALL  COMP. TIMES 

34  LET  LIGHT. STRT-ORT 

35  LET  PR.DRT.INC»PR.INC.ID 

36  LET  TOT. FOLKS-NMC. FOLKS  ♦NFC. FOLKS+U.**  (NMF.  FOLKS*NFF. FOLKS) 

37  FOR  TRT-1  TO  REP. COUNT.  DO 

38  LET  BRT.NUM>0 

39  LET  LS-LOS.PR 

UO  LET  HORK. ORDERED 

VI  LET  EX.RRT-X.RRT 

V2  LET  WHO. FIGMT-W. FIGHT 

V3  LET  MCPD-MCPD.ZERO 

VV  LET  SPRCE.ECH=S.ECH 

V5  LET  REC.NUM=R.VEHS 

46  LET  NM^NHF. FOLKS 

V7  LET  NF-NFF. FOLKS 

U8  IF  LIGHT. STRT-NIGHT 

49  LET  LIGHT. STRT=DflY 

50  LET  CCSU-2.MCCSU 
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51  LET  CCSL»2.mCCSL 

52  LET  SETUP. T1ME».5««SETUP. TIME 

53  LET  PR. INC. ID-PR. DAT. INC 
5U  LET  CQN.SPEE0-2.MCaN. SPEED 

55  LET  TH-TH/1.5   fiLHflYS 

56  IF  TRY-1 

57  CftLL  INIT. PRINT 

58  RLMATS 

59  LET  RTT.CONST— (1.0/BZER0)mL0G.E.F(EX.RRT) 

60  FOR  K-1  TO  BZERO-2.  SCHEDULE  fl  FAILURE  IN  EXPONENTIAL. F  (MTTF/USE. PER, IJ 

61  HOURS   "COMPUTES  FAILURE  TIMES  FOR  ALL  VEHICLES" 

62  LET  R.ALIVE-RZERO 

63  LET  BI.ALIVE-BZERO 
eu  LET  B2.ALIVE-BZER0 
85  LET  RECl.NUM-REC.NUH/2. 

66  LET  REC2.NUH-REC.NUH/2. 

67  LET  MCPDl-MCPD.ZERO 

68  LET  HCPD2-MCP0.ZER0 

69  IF  HHO.FIGHT-3  LET  B. ALIVE-2. mBZERO   ALHATS 

70  CREATE  A  HAINT.UNIT   FILE  MAINT.UNIT  IN  SUP.6N 

71  LET  NAME CMAINT. UNIT) -CO. MAINT 

72  LET  NH. FOLKS  (MAINT.UNIT) -NMC. FOLKS 

73  LET  NF.FOLKS  (MAINT.UNIT) -NFC. FOLKS 
Tk  LET  VEH.COUNT  (MAINT.UNIT) -V. CO. INIT 

75  LET  0. PLOT  (MAINT. UNIT) -COD 

76  LET  INSPECTOR (MAINT.UNIT) -2 

77  LET  M-NM. FOLKS (MAINT.UNIT) /2. 

78  LET  F-NF. FOLKS (MAINT.UNIT) /2. 

79  LET  N.RRM-TRUNC.F (F) 

80  LET  N.GROUP-TRUNC.F  (M)-»N.ARH 

81  IF  FRAC.F(H)>0.  LET  LOH-1.  ALUAYS 

82  IF  FRAC.F(F)>0.  LET  LOF-1.  ALWAYS 

83  FOR  I-l  TO  N. GROUP.  00 

8U  CREATE  A  CREH   FILE  CREU  IN  SHOP  (MAINT.UNIT) 

85  IF  I  LE  N.ARH   LET  MISSION (CREU) -ARM 

86  LET  N.F0LKS(CREM)-2.*L0F   LET  LOF-O. 

87  ELSE  LET  MISSION (CREM) -AUTO 

88  LET  N.  FOLKS  (CREH) -2. -^LOM   LETLOM-O. 

89  ALWAYS  LET  OCCUPATION (CREW) -IDLE 

90  LOOP 

91  FOR  I-l  TO  N.FWD.DET.  00 

92  CREATE  A  MAINT.UNIT   FILE  MAINT.UNIT  IN  SUP.BN 

93  LET  NAME  (MAINT.UNIT) -I 

94  LET  NM. FOLKS (MAINT.UNIT) -NH 

95  LET  NF.FOLKS (MAINT.UNIT) -NF 

96  LET  M-NH. FOLKS (MAINT.UNIT) /2. 

97  LET  F-NF. FOLKS (MAINT.UNIT) /2. 

98  LET  N.ARM-TRUNC.F(F) 

99  LET  N.6R0UP-TRUNC.F(M)-»N.ARM 

100  IF  FRAC.F(H)>0.  LET  LOH-1.  ALWAYS 
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101  IF  FRflC.F(F)>0.  LET  LOF-1.  ALWAYS 

102  LET  VEH. COUNT (MAINT. UNIT) -V.FS.INIT 

103  LET  D.FLOT  (MAINT. UNIT)  »MCPD. ZERO 
lOii  LET  INSPECTOR  (MAINT. UNIT) -1 

105  FOR  J«l  TO  N. GROUP.  00 

106  CREATE  A  CREM   FILE  CREM  IN  SHOP (MAINT. UNITI 

107  IF  J  LE  N.ARM  LET  MISSION  (CREM) -ARM 

108  LET  N.F0LKS(CREW)-2.*L0F   LET  LOF-0. 

109  ELSE  LET  MISSION  (CREH) -AUTO 

110  LET  N.  FOLKS  (CREM) -2. -^LOM  LET  LOM-0. 

111  ALWAYS  LET  OCCUPATION  (CREW) -IDLE 

112  LOOP  LOOP 

113  SCHEDULE  A  BATTLE  IN  LEAD. TIME  HOURS 

IIV  SCHEDULE  A  DAYLIGHT  IN  LEAD.TIME-"  15.  HOURS 

115  PRINT  V  LINES  AS  FOLLOWS 

116  JOB  LIST 
117 

118  WO   TD  V  U  H  FP   MD                      DAM.REC 
119 

120  START  SIMULATION 

121  LOOP 

122  STOP 

123  END 
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1 

2 

3 
V 
5 

6 

7 

8 

9 

10 

11 

12 

13 

m 

15 
16 
17 
18 
19 
20 
21 
22 
29 
211 
25 
26 
27 


EVENT  FfilLURE 

DEFINE  SPEC.ORH  RNO  BN  RS  VRRIRBLES 
DEFINE  TERM  RS  fl  VRRIRBLE 
IF  TIME.VmHOURS.V  LT  LERD.TIME 
LET  SPEC. ORH-STS. FAIL 
LET  6N-RRN01.F  (1.11.2) 

IF  BN-1  OR  BN-2  SUBTRACT  1  FROM  Bl.flLlVE   RLWflYS 
IF  BN-3  OR  BN-4  SUBTRRCT  1  FROM  B2. ALIVE   RLWRYS 
IF  HHO.FlGMT-3    SUBTRRCT  1  FROM  B. ALIVE  ALHflTS 
SCHEDULE  A  BREAK  GIVEN  SPEC. DAM  AND  BN  IN  UNIFORM. F  (2. .3. . 2) 
RETURN 
ELSE  IF  HHO.FIGHT-3 

IF  RANDOM. F  (2) >B. ALIVE/ (BZERQm2.)   RETURN 
ELSE  ADO  1  TO  QUIT 

SUBTRACT  1.  FROM  B. ALIVE 
RETURN 
ELSE  LET  TEAH-RANDI.F  (1.2,2) 
IF  TEAM-1 

IF  RANDOM. F  (2) >B1.ALIVE/BZER0  RETURN  ELSE 
SUBTRACT  1.  FROM  Bl. ALIVE 
ADD  1  TO  QUITI 
RETURN 
ELSE  IF  RANDOM. F (2) >B2.ALIVE/BZER0   RETURN   ELSE 
SUBTRACT  1.  FROM  B2. ALIVE 
ADO  1  TO  QU1T2 
RETURN 
END 


HOURS 
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1  EVENT  BATTLE 

2  DEFINE  REC.KILL  RS  fl  VRRIABLE 

3  DEFINE  I  nS  R  VRRIRBLE 

4  DEFINE  BROKE.  OEST.  DIFF.  FLRG.  K.  KILLED.  HOM.ORH.  LEV.JUHP,  NUH.J0B3. 

5  RECKS.  TEMP  RS  VflRIRBLES 

6  DEFINE  TE.R.TRRNS  RS  R  RERL  VRRIRBLE 

7  DEFINE  TB,  RI,  TRR,  C.  TEMP2,  NR,  T.REC,  TE.TRRNS,  TE.HOOK.  REC.TIHE 

8  RS  RERL  VRRIRBLES 

9  DEFINE  CHECK  RS  R  RERL  VRRIRBLE 

10  DEFINE  6N.  BNH.  BNL  RS  VRRIRBLES 

11  DEFINE  RRT  RS  R  RERL  VRRIRBLE 

12  RDO  1  TQ  BRT.NUH 

13  ROD  1  TD  COUNT 

m  IF  COUNT-4  LET  COUNT-G  LET  SPRCE.ECH-20.   RLHRTS 

IS  PRINT  3  LINES  WITH  BRT.NUH  THUS 

16 

17  RESULTS  OF  BRTTLE  mm 

18 

19  CRLL  DET.RLLOC 

20  IF  UHa.FICHT«3 

21  LET  BNL-1 

22  LET  BNH-V 

23  GO  RROUND 

24  ELSE  IF  HHO.FIGHT-1 

25  LET  BNL-1 

26  LET  BNH-2 

27  LET  B.RLIVE«B1.RLIVE 
26  LET  REC.NUH-RECl.NUH 

29  LET  HCPD-HCPDl 

30  LET  QUIT-QUITI 

31  ELSE  LET  B.RLIVE-B2.RLIVE 

32  LET  BNL-3 

33  LET  BNH-iJ 

34  LET  REC.NUH-REC2.NUH 

35  LET  MCPD-MCPD2 

36  LET  0UIT-0UIT2 

37  RLHRTS  'RROUND' 

38  LET  EX.RflT-EXP.F(-fiTT.C0NSTMB.RLlVE)>«LI6HT.STRT 

39  LET  RRT-R.RLIVE/B.RLIVE 

40  LET  CHECK-EX. RRT- (((R.RLIVE/B.  ALIVE)  »«m2)««(1.-BP«»«2)) 

41  IF  CHECK  LT  0. 

42  LET  TB— (l./SQRT.F(EX.RflT))MLOG.E.F(l.-BP) 

43  ELSE  LET  TB-LOG.E.F  ( (SORT. F  (CHECK) -  (RRT-BP) )/ (SORT. F  (EX. RRT) -RRTl) / 

44  SORT. F  (EX. RRT) 

45  ALMRTS 

46  PRINT  3  LINES  HITH  HHO. FIGHT  RNO  TB  THUS 
47 

48  HHO. FIGHT  IS  m   TIME  OF  BRTTLE  IS  m.mmh  HOURS 

49 

50  LET  RI-R.2ECHMUNIFaRM.F (0.5. 1.0,2) 
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51  LET   TRR- (SPACE. ECH/RI)*T8* (UNIFORM. F (5., 10., 2) /60.) 

52  LET   C— EX. RflT»«(TB/((l.-BP)«R. ALIVE)) 

53  LET   REC.TIME-TB+TRR+C 

5I|  LET  TEMP2-((l.-BP)«R.flLIVE/EX.RflT)-»REflL.F(QUIT) 

55  LET   CflS.C0UNT-TEMP2-REflL.F(QUlT) 

56  IF   TEHP2   >   B. ALIVE   LET   TEMP2-B. ALIVE+REAL.F (QUIT)      ALWAYS 

57  LET   NR-(1.-SELF.LIKE-UNREC)»«TEMP2 

58  IF  REC.NUH-0  LET  FLAG-1  GO  DONE  ALWAYS 

59  LET  T.REC-  (NR/REC.NUM)  «  (  (MCPD»«  (1  .*0) /CCSL)  ♦TH*  (MCPDn  (1  .♦D)  /CCSU) ) 

60  IF  REC.TIHE  LE  T.REC 

61  LET  RECKS-INT.F{NR«REC.TIHE/T.REC) 

62  ELSE  LET  BECKS-INT.F (NR)  ALWAYS 

63  LET  TE.TRANS-(MCPD/CCSU)»«(l.-»0) 
61  LET  TE.R.TRANS-(HCPD/CCSL)««(1.-»D) 

65  LET  TE.H00K-LS»«UNlF0RM.F(Q.,.4.2)«(l./TGT.PRn«PR.  INC.IDkTH 

66  LET  NUH.J0BS>0 

67  LET  SPACE. ECH-S.ECH 

68  IF  RECKS  GE  REC.NUH 

69  LET  TEHP-REC.NUH 

70  LET  DIFF-RECKS-TEMP 

71  ELSE  LET  TEMP-RECKS 

72  ALWAYS  FOR  K«l  TO  TEMP,  DO 

73  IF  RANDOM. F  (2)  LE  (TAN.F  (TE.TRANSh0.017U53) ) 
7y  OR  RANDOM. F (2)  LE  ABS.F (1 ./LOG. E.F (TE. HOOK) ) 

75  OR  RANDOM. F  (2)  LE  TAN.F  (TE.R.  TRANSm0.017i153) 

76  SUBTRACT  1  FROM  REC.NUH 

77  ADO  1  TO  RECK  ILL 

78  IF  REC.NUM-0.   GO  DONE  ALWAYS 

79  60  ON 

60  ELSE  ADO  1  TO  NUM. JOBS 

81  *0N*  LOOP 

82  IF  OIFF  NE  0 

83  FOR  K-1  TO  OIFF.  DO 

8V  IF  RANDOM. F (2)  LE  (TAN.F (TE.TRANS«0.017U53)  ) 

85  OR  RANDOM. F (2)  LE  ABS.F (1 ./LOG. E.F (TE. HOOK) ) 

86  OR  RANDOM. F  (2)  LE  TAN.F  (TE.R. TRANSmO.017453) 

87  SUBTRACT  1  FROM  REC.NUH 

88  ADO  1  TO  REC.KILL 

89  IF  REC.NUM-0.   GO  DONE  ALWAYS 

90  GO  OUT 

91  ELSE  ADD  1  TO  NUM. JOBS 

92  'OUT  •  LOOP 

93  REGARDLESS   'DONE ' 

9«  PRINT  2  LINES  WITH  REC.KILL  THUS 

95  NUMBER  RECOVERY  VEHICLES  KILLED  THIS  BATTLEt   mm 

96 

97  "SELF-LIKE.  SYS  FAIL" 

98  LET  BROKE-INT.F (SELF. LIKEmREAL.F (QUIT)) 

99  IF  BROKE  GE  1 

100  FOR  I-l  TO  BROKE.  DO 
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101  LET  HOM.DflM-STS.FfllL 

102  LET  BN'RRNOI.F  (BNL.BNH.2) 

103  SCHEDULE  R  BREAK  GIVEN  HOM.ORM  RNO  BN   IN  UNIFORH.F  (.SmTE. TRANS. 
lOU  REC.TIHE.2)  HOURS 

105  LOOP 

106  ELSE  LET  BROKE-0 

107  flLHflrS  "SELF-LIKE.  SHOT" 

108  LET  KILLED-INT.F(SELF.LIKE«(l.-BP)»«R.flLIVE/EX.RflT) 

109  IF  KILLED  GE  1 

110  FOR  I-l  TO  KILLED.  00 

111  LET  HOH.DflH-SHOTF 

112  LET  BN<iRflNDI.F(BNL.BNH.2) 

113  SCHEDULE  A  BREAK  GIVEN  HOM.DAM  AND  BN   IN  UNIFORH.F (.SmTE. TRANS. 
IIU  REC.TIHE.2)  HOURS 

115  LOOP 

116  ELSE  LET  KILLED>0 

117  ALWAYS   "RECOVERED.  STS  FAIL" 

118  IF  FLAG-1  GO  CHANGE  ALWAYS 

119  LET  BROKE-QUIT-BROKE 

120  IF  BROKE  GE  1 

121  FOR  I-l  TO  BROKE.  DO 

122  LET  HOW. DAH-SYS. FAIL 

123  LET  BN-RANDI.F  (BNL.BNH.2) 

124  SCHEDULE  A  BREAK  GIVEN  HOW.OAH  AND  BN   IN  UNIFORH.F  (.SmTE. TRANS. 

125  REC.TIHE.2)  HOURS 

126  LOOP 

127  ELSE  LET  BROKE-0 

128  ALWAYS   "RECOVERED.  SHOT" 

129  LET  DEST-NUH. JOBS-BROKE 

130  FOR  I-l  TO  OEST.  DO 

131  LET  HOW.DAH-SHOT 

132  LET  BN-RANDI.F  (BNL.BNH, 2) 

133  SCHEDULE  A  BREAK  GIVEN  HOW.OAH  AND  BN   IN  UNIFORH.F  (.SmTE. TRANS. 
1311  REC.TIHE.2)  HOURS 

135  LOOP 

136  'CHANGE* 

137  LET  B.ALIVE-B.ALIVE-TEHP2*REAL.F(QUIT) 

138  LET  HCPD1»MCPD1-(FL0T.H0VEmTB) 

139  LET  HCPD2-HCPD2-(FL0T.H0VEmTB) 

110  LET  HCPD  -MCPO  -  (FLOT. HOVEmTB) 

111  LET  TOT. REC-NUM. JOBS 

142  LET  TOT. NEED. REC-INT.F(NR) 

m3  LET  R.CAS.CNT-R.RLIVEm(I.-BP) 

lUU  LET  R.ALIVE-BPmR. ALIVE 

lUS  IF  R. ALIVE  LE  70.  ADD  RZERO  TO  R. ALIVE 

lUe  ELSE  ADO  RZERa/2.  TO  R. ALIVE       ALWAYS 

1U7  LET  SPACE. ECH-S.ECH 

1U6  IF  WHO.FIGHT-3   GO  AHEAD 

149  ELSE  IF  WHO.FIGHT-1 

150  SUBTRACT  4.  FROH  HCPOl 
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151  LET  QUlTl-0 

152  IF  HCPOl  LE  B.DIST 

153  flOO  MCPO.ZERO  TO  MCPDl 

154  FOR  I-l  TO  2.    DO 

155  FOR  ERCH  HRINT.UNIT  IN  SUP.BN  WITH  NAHE  (MRINT.UNIT) -1 .  00 

156  LET  LEV. JUHP-MRINT. UNIT 

157  SCHEDULE  R  JUMP  GIVEN  LEV. JUMP  IN  15.  MINUTES 

158  ROD  MCPD. ZERO  TO  D. PLOT  (MRINT. UNIT) 

159  LOOP 

ISO  LOOP  RLURYS 

161  LET  RECl.NUM-REC.NUH 

162  LET  Bl.RLIVE-B.RLIVE 

163  GO  RHERD 

1611  ELSE  SUBTRRCT  U.  FROM  MCP02 

165  LET  QUIT2-0 

166  IF  MCP02  LE  B.DIST 

167  ROD  MCPO.ZERO  TO  MCP02 

168  FOR  1-3  TO  M.  00 

169  FOR  ERCH  MRINT. UNIT  IN  SUP.BN  MITH  NRME  (MRINT. UNIT) -1 .  00 

170  LET  LEV. JUMP-MRINT. UNIT 

171  SCHEDULE  R  JUMP  GIVEN  LEV. JUMP  IN  15.  MINUTES 

172  ROD  MCPO.ZERO  TO  D. PLOT  (MRINT. UNIT) 

173  LOOP 

17U  LOOP  RLMRYS 

175  LET  REC2.NUM-REC.NUM 

176  LET  B2.RLIVE-B.RLIVE 

177  'RHERD* 

178  FOR  ERCH  MRINT. UNIT  IN  SUP.BN  MITH  NRME  (HRINT.UNIT) >0,  DO 

179  IF  NRME (HRINT.UNIT)  LE  2  LET  0. PLOT  (HRINT.UNIT) «MCPD1 

180  ELSE  LET  D. PLOT  (HRINT.UNIT) -MCPD2 

181  RLHRTS  LOOP 

182  FOR  ERCH  HRINT.UNIT  IN  SUP.BN  MITH  NRHE  (HRINT.UNIT) >C0.HRINT 

183  LET  0. PLOT  (HRINT. UNIT) -0. PLOT (HRINT.UNIT)- (PLOT. HOVEkTB) 
16U  PRINT  2  LINES  MITH  REC.NUH.  B.RLIVE.  R.RLIVE  THUS 

185  •  RE.  VEHS.  LEFTi  mm   B.RLIVE:  mmm   R.RLIVEi  mmm 
186 

187  IF  B.RLIVE  LE  71. 

188  IF  MHO. FIGHT  NE  3 

189  LET  HHO.FIGHT-3 

190  LET  B.RLIVE-B1.RLIVE-^B2.RLIVE 

191  LET  QUIT-QUIT1-»QUIT2 

192  LET  REC.NUH-REC1.NUH-»REC2.NUH 

193  SCHEDULE  R  BRTTLE  IN  TB^TRR* (y.-TB) /RI  HOURS 
19ii  GO  HRITE 

195  ELSE  SCHEDULE  R  STOP.SIHULRTION  IN  TB  HOURS 

196  PRINT  1  LINE  THUS 

197  BLUE  RERCHES  BRERKPOINT  THIS  BRTTLE 

198  GO  MRITE 

199  ELSE 

200  IF  HHO.FIGHT-1   LET  MHO.FIGHT-2  ELSE 
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201  IF  UHa.FIGHT-2  LET  NHO.FIGHT-1   RLMAYS  REGARDLESS 

202  SCHEDULE  fl  BATTLE  IN  TB+TRR+ (1. -TB) /RI  HOURS 

203  LET  QUlT-0 

204  'WRITE' 

205  PRINT  5  LINES  flS  FOLLOHS 
206 

207  JOB  LIST 

208 

209  HO   TD   V  U  H  FP   MO                      DAN.REC 

210 

211  RETURN 

212  END 
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1  EVENT  BRERK  GIVEN  HOH.ORH  RNO  BN 

2  DEFINE  LEVEL  RS  R  VRRIRBLE 

3  DEFINE  BN.  HO  RS  VRRIRBLES 

«  DEFINE  SPEC. JOB  RNO  HOM.DRH  RS  VRRIRBLES 

5  DEFINE  X  RS  R  RERL  VRRIRBLE 

6  DEFINE  HRX.DRH  RS  R  RERL  VRRIRBLE 

7  LET  X-RRND0M.F(2) 

a  LET  WORK. ORDER-WORK. QRDER-^1 

9  CRERTE  R  JOB 

10  LET  UNIT  (JOB) -BN 

11  LET  HO. NUM  (JOB) -WORK. ORDER 

12  IF  X  LE  P.TRNK  LET  VEH. TYPE  (JOB) -TANK 

13  ELSE  LET  VEH. TYPE  (JOB) -RPC 
IV  RLURYS 

15  IF  HOU.ORH-SYS.FRIL   CO  ON 

16  ELSE  IF  HOH.DRM-SHOT 

17  LET  MRX.ORM-1.0 

18  ELSE  LET  HRX.DRH-0.2   RLHRYS 

19  IF  VEH. TYPE (JOB) -TRNK 

20  LET  FP.DRM  (JOB) -UNIFORM. F (0.,1.. 2) 

21  LET  HOB. DRH  (JOB) -UNIFORM. F (0.. HRX.DRH, 3) 

22  GO  DOHN 

23  ELSE  LET  FP.DRM  (JOB) -UNIFORM. F (0. .  1..  2) 
2V  LET  HOB. DRH  (JOB) -UNI FORH. F  (0.. HRX.DRH. 3) 

25  GO  DOHN 

26  'ON*   LET  X-RRND0H.F(3) 

27  IF  X  LE  P. HOB  LET  HOB. DRH  (JOB) -UNIFORM. F  (0. . .2.3) 

28  ELSE  LET  FP.DRH  (JOB) -UNIFORH.F (0. . .2. 2) 

29  RLHRYS 

30  *DOHN ' 

31  LET  SPEC. JOB- JOB 

32  CRLL  RSSESS.DRH  GIVEN  SPEC. JOB 

33  LET  HO-WO.NUH(JOB) 

3«  IF  VEH. TYPE (JOB) -TRNK 

35  PRINT  1  LINE  HITH  HQRK. ORDER.  TIHE.V.  VEH. TYPE  (JOB) .  UNIT  (JOB).  HOH.DRH. 

36  FP.DRH(JOB).  HOB. DRH  (JOB) .  DRH.REC  (HO. 1) .ORH.REC  (H0.2) .  ORH. REC  (HO. 3) , 

37  DRH.REC (HO. V) .DRH.REC  (HO, 5) .DRH.REC  (HO. 6) .DRH.REC  (HO. 7) .DRH.REC  (HO. 8) . 

38  ORH.REC (HO. 9) .DRH.REC (HO. 10) .DRH.REC (HO. 11)  THUS 

«0  ELSE 

«1  PRINT  1  LINE  HITH  HORK. ORDER,  TIHE.V.  VEH. TYPE  (JOB) ,  UNIT (JOB),  HOH.DRH, 

«2  FP.DRH(JOB),  HaB.ORH(JOB) .  DRH.REC  (HO. 1 ) .ORH.REC  (H0.2) .  DRH. REC  (HO. 3) . 

43  DRH.REC (HO. 4) .DRH.REC  (HO. 5) .DRH. REC  (HO. 6) .DRH. REC  (HO. 7) . DRH.REC  (HO. 8) . 

U4  DRH.REC (HO. 9)   THUS 

lis  MMM     M.MM     M     M     M      N.MM      M  .  MM     M.MM      M.MM     M.MM     M.MM      M.MM     M.MM      M.MM      M.MM     M.MM 

46  RLHRYS 

47  FOR  ERCH  HRINT.UNIT  IN  SUP.BN.  DO 

48  IF  NRHE  (HRINT.UNIT) -UNIT (JOB)  GO  RHERD 

49  ELSE   LOOP 

50  •RHERD'   LET  SPEC. JOB-JOB   LET  LEVEL-HfllNT.UNIT 
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51  IF  T. JUMP  (MfllNT. UNIT)  NE  0.0   AND  TIME.V  LT  T. JUHP  (MfilNT.UNiT) 

52  SCHEDULE  AN  flRRIVflL  GIVEN  SPEC. JOB  AND  LEVEL  AT  T. JUMP  (MAINT. UNIT) 

53  ELSE  SCHEDULE  AN  ARRIVAL  GIVEN  SPEC. JOB  AND  LEVEL  NOM 
511        ALMATS  RETURN 

55  END 
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1  EVENT  RRRIVRL  GIVEN  SPEC. JOB  RND  LEVEL 

2  DEFINE  LEV. HOVE   RS  R  VRRIRBLE 

3  DEFINE  SPEC. JOB  AND  LEVEL  RS  VRRIRBLES 
V  LET  JOB«SPEC.JOB  LET  MfllNT.UNIT=LEVEL 

5  HDD  1.  TO  VEH. COUNT (HRINT. UNIT) 

6  IF  (NH. FOLKS  (HRINT. UNIT)  LE  1.  RND  HOB.DRHCJOB)  NE  0.)  OR 

7  (NF. FOLKS (HRINT. UNIT)  LE  1.  RND  FP.DRH(JOB)  NE  0.) 

8  LET  LEV. H0VE=HRINT. UNIT 

9  SCHEDULE  R  HOVE.RERR  GIVEN  SPEC. JOB  RND  LEV. HOVE  IN  (BETR.F (R (7. I) . 

10  fl(7,2)  ,9)««(T.RCTI0N(7,3)-T.RCTI0N(7,1)))*T.RCTI0N(7,1)  HOURS 

11  FILE  JOB  IN  NT. QUEUE (HRINT. UNIT)   RETURN  ELSE 

12  IF  INSPECTOR (HRINT. UNIT) -0 

19  FILE  JOB  IN  HI. QUEUE (HRINT. UNIT)   RETURN 

lU  ELSE  SUBTRRCT  1  FROH  INSPECTOR (HRINT. UNIT) 

15  IF  NRHE (HRINT. UNIT) >0 

16  LET  TI.TIHE»(BETR.F(R(l,n  .R  (1 .  2)  ,  "4)  ♦«  (T.RCTION  (1 ,  3) -T.RCTION  (1 . 1) ) )  ♦ 

17  T.RCTIONd.l) 

18  SCHEDULE  R  DIRGNOSIS  GIVEN  SPEC. JOB  RND  LEVEL  IN  TI.TIHE  HOURS 

19  RETURN 

20  ••RT  COHPRNT" 

21  ELSE  LET  TI.TIHE- (BETR.F  (R  (2. 1)  .R  (2.2)  .U)  «  (T.RCTION  (2.3) -T.RCTION  (2.1) )) -» 

22  T.RCTION  (2.1) 

23  SCHEDULE  R  DIRGNOSIS  GIVEN  SPEC. JOB  RND  LEVEL  IN  TI.TIHE  HOURS 
2U  RETURN 

25     END 
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1  EVENT  REPAIR  GIVEN  R.CREU.  SPEC. JOB  AND  LEVEL 

2  DEFINE  HO  RS  fl  VARIRBLE 

3  DEFINE  JOB. CRN  RS  R  VRRIRBLE 
U  DEFINE  CRN  RS  R  VRRIRBLE 

5  DEFINE  SPEC. JOB  RNO  LEVEL  RS  VRRIRBLES 

6  DEFINE  R.CREH  RS  R  VRRIRBLE 

7  LET  CREW-R.CREH  LET  JOB-SPEC. JOB 

8  LET  HO  -  HO.NUH(JOB) 

9  LET  NRINT. UNIT-LEVEL 

10  IF  IN. CRN (JOB)  NE  0 

11  CRLL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  RND  R.CREH 

12  ADO  1  TO  CRN. FIX 

13  BLURTS 

lU  IF  MISSION (CREH)-RUTO  LET  HOB.DRH (JOB) -0. 

15  IF  JOB  IS  IN  RUTOHOTIVE  REMOVE  JOB  FROM  RUTOHOTIVE   RLHRTS 

16  ELSE  LET  FP.ORM  (JOB) -0. 

17  IF  JOB  IS  IN  RRMRHENT  REMOVE  JOB  FROM  RRMRMENT    RLHRTS 

18  ALURTS   IF  FP.DRM  (JOB) -0.  RNO  HOB.DRH  (JOB) -G. 

19  IF  JOB  IS  IN  CLOSED. JOB  GO  LOOK  OTHERHISE 

20  LET  D0HN.TIHE«TIHE.V-TIME.00HN(J0B) 

21  ROD  1  TO  NUM.RET.BRTTLE  FILE  JOB  IN  CLOSED. JOB 

22  IF  JOB  IS  IN  RUTOHOTIVE  REMOVE  JOB  FROM  RUTOHOTIVE  RLHRTS 

23  IF  JOB  IS  IN  RRHRHENT    REMOVE  JOB  FROM  RRHRHENT    RLHRTS 
2H  IF  JOB  IS  IN  HT. QUEUE    REMOVE  JOB  FROM  HT. QUEUE    RLHRTS 

25  IF  JOB  IS  IN  US. QUEUE    REMOVE  JOB  FROM  US. QUEUE    RLHRTS 

26  IF  JOB  IS  IN  HI. QUEUE    REMOVE  JOB  FROH  HI. QUEUE    RLHRTS 

27  IF  JOB  IS  IN  UP. QUEUE    REHOVE  JOB  FROH  HP. QUEUE    RLHRTS 

28  SUBTRRCT  1.  FROH  VEH. COUNT  (HRINT. UNIT) 

29  IF  UHO.FIGHT-3  ROD  1  TO  B.RLIVE   GO  LOOK 

30  ELSE  IF  UNIT  (JOB) -1  OR  UNIT (JOB) -2  ROD  1  TO  BI.RLIVE  GO  LOOK 

31  ELSE  ROD  1  TO  B2.RLIVE   GO  LOOK 

32  ELSE  IF  JOB  IS  NOT  IN  US. QUEUE  RND  JOB  IS  NOT  IN  RUTOHOTIVE 

33  AND  JOB  IS  NOT  IN  RRHRHENT 
3U  FILE  JOB  IN  US. QUEUE  (HRINT. UNIT) 

35  ELSE  'LOOK'  IF  US. QUEUE (HRINT. UNIT)  IS  EHPTT 

36  GO  CONTROL 

37  EL3E  FOR  ERCH  JOB  IN  US. QUEUE  (HRINT. UNIT) .  DO 

38  IF  MISSION  (CREH)-RUTO  RNO  HOB.DRH  (JOB) >0. 

39  AND  JOB  NOT  IN  RUTOHOTIVE   GO  TRKE 

UO  ELSE  IF  MISSION  (CREH)-RRH  RND  FP.DRH (JOB) >0. 

«1  AND  JOB  NOT  IN  RRHRHENT   GO  TRKE 

«2  REGARDLESS  RLHRTS  LOOP 

«3  'CONTROL'  "TRT  TO  CflNNlBRLIZE" 

UV  IF  HP. QUEUE  IS  EHPTT  RND  HT. QUEUE  IS  EHPTT 

«I5  LET  OCCUPRTIQN(CREU)-IDLE   RETURN 

V6  ELSE  FOR  ERCH  JOB  IN  HP. QUEUE (HRINT. UNIT) .  DO 

«7  IF  (FP.DRH  (JOB) -0.  RND  HISSION (CREU) -RRH)  OR  (HOB.DRH (JOB) -0.  RNO 

U8  MISSION (CREU) -RRH)   GO  DOUN 

U9  ELSE 

50  LET  JOB. CRN- JOB 
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51  CALL  CANNIBAL  GIVEN  JOB. CAN  AND  LEVEL  YIELDING  CAN 

52  LET  SPEC. JOB- JOB 

53  LET  HAINT. UNIT-LEVEL 
5V  IF  CAN-0   GO  DOMN 

55  ELSE 

56  CALL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  AND  A.CREH 

57  IF  MISSION  (CREH)-ARH 

58  LET  T.ARM.REP-(BETA.F(A(U,1)  .  A  (U,21  ,6)  m  (T.  ACTION  (U.S) -T.  ACTION  (U,  1) ) ) -» 

59  T.ACTIONCU.n 

60  SCHEDULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T.ARH.REP  HOURS 

61  FILE  JOB  IN  ARMAHENT  (HAINT. UNIT) 

62  ELSE 

63  LET  T.flUTO.REP-  (BETA. F  (A  (3. 1) .A  (3.2) ,6) n (T. ACTION  (3,3) -T. ACTION (3. 1) ) ) * 
6V  T. ACTION (3.1) 

65  SCHEDULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. AUTO. REP  HOURS 

66  FILE  JOB  IN  AUTOMOTIVE (HAINT. UNIT) 

67  ALMATS  RETURN 

68  *OOHN*   LOOP 

69  IF  NAHE  (HAINT. UNIT) -CO. HAINT   LET  OCCUPATION  (CREH) -IDLE  RETURN 

70  ELSE  FOR  EACH  JOB  IN  UT. QUEUE  (HAINT. UNIT) .  DO 

71  IF  JOB  IS  IN  AUTOMOTIVE  OR  JOB  IS  IN  ARHAHENT 

72  FOR  EACH  MOVE. REAR  IN  EV. S  (I .MOVE. REAR)  MITH  HO. NUH  (SPEC. HOVE)  EQ 

73  HO. NUH  (JOB).  DO 

7«  CANCEL  THE  MOVE. REAR  DESTROY  THE  MOVE. REAR 

75  REMOVE  THE  JOB  FROH  HT. QUEUE  (HAINT. UNIT)  LOOP  GO  OUT  ALWAYS 

76  IF  (FP.DAM(JOB)-O.  AND  MISSION  (CREH) -ARH)  OR  (HOB.OAH  (JOB) -0.  AND 

77  MISSION (CREH) -AUTO)   GO  OUT 

78  ELSE 

79  LET  JOB. CAN- JOB 

80  CALL  CANNIBAL  GIVEN  JOB. CAN  AND  LEVEL  YIELDING  CAN 

81  LET  SPEC. JOB- JOB 

82  LET  HAINT. UNIT-LEVEL 

83  IF  CAN-0  GO  OUT 
8*1  ELSE 

85  CALL  SUBSTITUTE  GIVEN  SPEC. JOB.  LEVEL  AND  A.CREH 

86  IF  MISSION  (CREH) -ARM 

87  LET  T.ARH.REP- (BETA. F  (A  («.!)  .A  (4.2)  .6)  «  (T.  ACTION  (U.  3) -T.ACTION  (4.  1) ) )  ♦ 

88  T.  ACTION  (11.1) 

89  SCHEDULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T.ARH.REP  HOURS 

90  FILE  JOB  IN  ARMAMENT (HAINT. UNIT) 

91  ELSE 

92  LET  T.AUT0.REP-(BETA.F(A(3.n  .A  (3.2)  .6)  «  (T.  ACTION  (3.3) -T.  ACTION  (3. 1) ))  * 

93  T. ACTION (3.1) 

94  SCHEDULE  A  REPAIR  GIVEN  A.CREH.  SPEC. JOB  AND  LEVEL  IN  T. AUTO. REP  HOURS 

95  FILE  JOB  IN  AUTOHOTIVE (HAINT. UNIT) 

96  ALHAYS  RETURN 

97  'OUT'   LOOP 

96  LET  OCCUPATION  (CREH) -IDLE  RETURN 

99  *TAKE'   REHOVE  JOB  FROM  HS. QUEUE  (HAINT. UNIT) 

100  LET  SPEC. JOB- JOB 
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101  IF  MISSION  (CREH) -ARM  AND  FP.ORM(JOB)  NE  0. 

102  LET  T. RRH. REP- (BETA. F  (R  (>4. 1)  .  R  (>1,2)  .6)  m  (T.RCTION  (4.  3) -T.RCTION  (U,  1) ) )  ♦ 

103  T.RCTI0N(>4.1) 

lOU  LET  REP. UNIT  (JOB) -NRHE (HRINT. UNIT) 

105  SCHEDULE  fl  REPRIR  GIVEN  R.CREM.  SPEC. JOB.  LEVEL  IN  T.RRH.REP (JOB)  HOURS 

106  LET  RRM.REP.TIME-T.RRM.REPCJOB) 

107  FILE  JOB  IN  RRHRMENT  (HRINT. UNIT)   RETURN 

108  ELSE  IF  MISSION (CREM]-RUTO  RNO  HOB.ORH(jaB)  NE  0. 

109  LET  T.flUTO.REP-  (BETR.F  (R  (3. 1)  .R  (3.2)  .6)  >*  (T.  ACT  I  ON  (3,3)  -T.  ACT  ION  (3. 1) ) )  ♦ 

110  T.RCTI0N(3,1) 

111  LET  REP. UNIT  (JOB) -NRHE (HRINT. UNIT) 

112  SCHEDULE  R  REPRIR  GIVEN  R.CREM.  SPEC. JOB.  LEVEL  IN  T.RUTO.REP (JOB)  HOURS 

113  LET  H.REP.TIME-T.RUTO.REP(JOB) 

im  FILE  JOB  IN  RUTOHOTIVE  (HRINT. UNIT)     RETURN 

115  ELSE  RETURN 

116  END 
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1  EVENT  PftRTS.CeME  GIVEN  SPEC. JOB  ftND  LEVEL 

2  DEFINE  Bnr  RND  FBOY  ftS   VRRIRBLES 

3  DEFINE  SPEC. JOB  RND  LEVEL  RS  VRRIRBLES 
V  DEFINE  R.CREU  RS  R  VRRIRBLE 

5  LET  MRINT. UNIT-LEVEL   LET  JOB-SPEC. JOB 

6  IF  JOB  IS  IN  HS. QUEUE  RETURN  ELSE 

7  IF  JOB  IS  NOT  IN  HP. QUEUE   RETURN   ELSE 

8  REMOVE  THIS  JOB  FROM  UP. QUEUE  (MRINT. UNIT) 

9  IF  JOB  IS  IN  AUTOMOTIVE  GO  OOMN   OTHERWISE 

10  IF  MOB.ORH(JOB)>0. 

11  FOR  ERCH  CREH  IN  SHOP  (MRINT. UNIT)  UITH  MISSION  (CREN) -RUTO, DO 

12  IF  OCCUPRTION  (CREH) -IDLE   LET  BRY-1   LET  R.CREH-CREH 

13  GO  OUTSIDE 
lU  ELSE   LOOP 

15  'OUTSIDE'   IF  BRY-l 

16  LET  T.flUT0.REP-(BETfl.F(fi(3,l)  .fl(3.2)  .6) »« (T.flCTION  (3.3) -T.flCTlON  (3. 1) )  1  ♦ 

17  T.flCTI0N(3.1) 

18  LET  REP. UNIT  (JOB) -NRME (MRINT. UNIT) 

19  SCHEDULE  R  REPRIR  GIVEN  R.CREH,  SPEC. JOB.  LEVEL  IN  T.RUTQ.REP (JOB)  HOURS 

20  LET  H.REP.TIME-T.RUTO.REP(JOB) 

21  FILE  JOB  IN  AUTOMOTIVE (MRINT. UNIT) 

22  ELSE  FILE  JOB  IN  HS. QUEUE (MRINT. UNIT) 

23  REGRROLESS  RLHRTS  'DOWN'  IF  JOB  IS  IN  RRMRMENT  GO  ON  OTHERHISE 
211  IF  FP.DRM(JOB)-0.  GO  BEYOND  ELSE 

25  FOR  ERCH  CREH  IN  SHOP (MRINT. UNIT)  HITH  MISSION  (CREH) -RRM.  00 

26  IF  OCCUPRTION (CREH) -IDLE  LET  FBRY-1  LET  R.CREM-CREH 

27  GO  BEYOND 

28  ELSE  LOOP 

29  'BEYOND'   IF  F8flY-l 

30  LET  T.RRM.REP-(BETR.F(R(ii,l)  .R  (>1.2)  .6)  •<  (T.RCTION  (4.3) -T.RCTION  (■!,  1) ) )  •» 

31  T.RCTIONdl.l) 

32  LET  REP.UNIT  (JOB) -NRME (MRINT. UNIT) 

33  SCHEDULE  ft  REPAIR  GIVEN  R.CREH.  SPEC. JOB.  LEVEL  IN  T. RRM. REP  (JOB)  HOURS 
31*  LET  flRM.REP.TlME-T.flRM.REP(JOB) 

35  FILE  JOB  IN  RRMRMENT (MRINT. UNIT) 

36  ELSE  IF  JOB  IS  NOT  IN  HS. QUEUE 

37  FILE  JOB  IN  HS. QUEUE  (MRINT. UNIT) 

38  REGARDLESS  ALHAYS  'ON'  RETURN 

39  END 
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1  EVENT  OlflGNOSIS  GIVEN  SPEC. JOB  AND  LEV.DIAG 

2  DEFINE  LEV.RRR  AS  R  VRRIRBLE 

3  DEFINE  LEVEL  RS  R  VRRIRBLE 

It  DEFINE  BAY.  FBRT.  CRN,  FP.  LEV.DIRG.  SPEC. JOB  RS  VRRIRBLES 

5  DEFINE  R.CREH  RS  R  VRRIRBLE 

6  DEFINE  P. PARTS.  X  AND  P. FIX  RS  REAL  VRRIRBLES 

7  DEFINE  CAN.VEH  AS  A  I-OIMENSIONRL  RRRRT 

8  LET  LEVEL  -LEV.DIRG 

9  LET  JOB-SPEC.JOB  LET  MfllNT. UNIT-LEVEL 

10  IF  VEH. TYPE  (JOB) -TRNK  LET  FP-11 

11  ELSE  LET  FP-9 

12  RLURYS  ADD  1  TO  INSPECTOR  (HAINT. UNIT) 

13  IF  NAME  (MAINT. UNIT) >0  LET  P.FIX-P.FIX.FWD 
IV  LET  P. PARTS-PR. HAVE. PARTS. FWD 

15  ELSE  LET  P.FIX-P.CO.FIX  LET  P. PARTS-PR. REAR. HAVE. PRRTS 

16  ALWAYS  IF  MOB. DAM  (JOB) >P. FIX  OR  FP.DAM  (JOB) >P.FIX  GO  EVRC.MRYBE 

17  ELSE  LET  X-UNIFORM.F  (0. ,  1..  U) 

18  IF  X>P. PRRTS  "NEED  PRRTS,  TRY  TO  CflNNlBRLiZE" 

19  CRLL  CRNNIBRL  GIVEN  SPEC. JOB  RND  LEVEL  YIELDING  CRN 

20  LET  HRINT. UNIT-LEVEL 

21  LET  JOB-SPEC. JOB 

22  IF  CAN-O  GO  EVRC.MRYBE 

23  OTHERWISE  ELSE  "HRVE  PRRTS"  IF  MOB.DRM  (JOB)  >0.0 

24  FOR  ERCH  CREW  IN  SHOP  (MRINT. UNIT)  WITH  MISSION  (CREW) -RUTO,  00 

25  IF  OCCUPRTION  (CREW) -IDLE  LET  BRY-1  LET  R. CREW-CREW 

26  GO  FIX 

27  ELSE  LOOP 

28  'FIX'   IF  BAY-1 

29  LET  T.AUT0.REP-(BETR.F(fl(3.1)  ,fl(3.2)  ,6) »« (T.RCTION  (3,  3) -T.flCTION  (3. 1) ) )  ♦ 

30  T.ACTIONO.n 

31  LET  REP.UNIT (JOB) -NRME (HRINT. UNIT) 

32  SCHEDULE  A  REPAIR  GIVEJ4  A. CREW.  SPEC. JOB.  LEVEL  IN  T. AUTO. REP  (JOB)  HOURS 

33  LET  M. REP. TIHE-T. AUTO. REP (JOB) 

3V  FILE  JOB  IN  AUTOMOTIVE  (MRINT. UNIT) 

35  ELSE  FILE  JOB  IN  WS. QUEUE  (MRINT. UNIT) 

36  REGARDLESS 

37  ALWAYS  REGARDLESS   IF  FP.DAM  (JOB) -0.    GO  NEXT 

38  ELSE  FOR  EACH  CREW  IN  SHOP  (HAINT. UNIT)  WITH  MISSION  (CREW) -ARM.  DO 

39  IF  OCCUPATION  (CREW) -IDLE  LET  FBAY-1  LET  A. CREW-CREW 
«0  GO  BEYOND 

VI  ELSE  LOOP 

V2  'BEYOND*   IF  FBRY-1 

V3  LET  T.flRM.REP-(BETR.F(R(y.l)  .A(il.2)  .6)  «  (T.  ACTION  («,  3) -T.  ACTION  (4. 1)  )  )  ♦ 

VV  T. ACTION  (4.1) 

VS  LET  REP.UNIT  (JOB) -NRME  (MRINT. UNIT) 

V6  SCHEDULE  A  REPAIR  GIVEN  R.CREW.  SPEC. JOB,  LEVEL  IN  T.RRM. REP (JOB)  HOURS 

V7  LET  ARM.REP.TIME-T.RRM.REP(JOB) 

V8  FILE  JOB  IN  RRMRMENT  (MRINT. UNIT)     GO  NEXT 

V9  ELSE  IF  JOB  IS  NOT  IN  WS. QUEUE 

50  FILE  JOB  IN  WS. QUEUE  (MRINT. UNIT)   GO  NEXT 
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51  'EVflC. MAYBE'  REGflROLESS  IF  NAME  (MfllNT. UNIT) >0 

52  IF  H0B.DAH(J0B)<.2  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEVEL  NOM 

53  ELSE  SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEVEL  IN 

SH  (BETA.F  IA(7. 1)  ,A  (7,2)  .9)  «  (T.  ACT  ION  (7,3)  -T.  ACTION  (7, 1) )  )  ♦T.  ACT  ION  (7, 1) 

55  HOURS 

56  ALHATS 

57  FILE  JOB  IN  HT. QUEUE  (HAINT. UNIT) 

58  GO  NEXT 

59  ELSE  IF  MOB. DAM  (JOB) >P. FIX  OR  FP.DAM (JOB) >P.FIX 

60  SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEVEL  IN 

61  (BETA.F  (A  (8, 1)  ,  A  (8.2)  .9)  »  (T.  ACT  ION  (8.  3)  -T.  ACTION  (8. 1) ) )  -»T.  ACT  ION  (8, 1) 

62  HOURS 

63  FILE  JOB  IN  MT. QUEUE (MAINT. UNIT)   GO  NEXT 
6V  ELSE  FILE  JOB  IN  HP. QUEUE  (MAINT. UNIT) 

65  LET  T.PART.C0HES-(BETA.F(A(5,1),A(5,2),6)»«(T.ACTI0N(5.3)- 

66  T.ACTI0N(5,1)))-»T.ACTI0N(5,1) 

67  SCHEDULE  A  PARTS. COME  GIVEN  SPEC. JOB  AND  LEVEL  IN 

68  T. PART. COMES  HOURS 

69  'NEXT' 

70  LET  LEVEL  -LEV.DIAG 

71  IF  HI. QUEUE  IS  EMPTY  RETURN 

72  ELSE  REMOVE  FIRST  JOB  FROM  HI. QUEUE  (LEVEL)   LET  SPEC.JOB^JOB 

73  SUBTRACT  1  FROM  INSPECTOR  (LEVEL) 
7«1  IF  NAME  (LEVEL)  >0 

75  LET  TI.TIME-(BETA.F(A(l.l).A(l,2).il)«(T.ACTI0N(1.3)-T.ACT10N(l.l)))* 

76  T.ACTI0N(1,1) 

77  SCHEDULE  A  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEVEL  IN  TI.TIME  HOURS 

78  RETURN 

79  ''AT  COMPANY" 

80  ELSE  LET  TI.TIME- (BETA.F  (A  (2. 1) , A  (2.2) .U) m  (T. ACTION  (2.3) -T. ACTION (2. 1) )) > 

81  T. ACTION  (2.1) 

82  SCHEDULE  A  DIAGNOSIS  GIVEN  SPEC. JOB  AND  LEVEL  IN  TI.TIHE  HOURS   RETURN 

83  END 
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7 

8 
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10 
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12 

13 

lU 

15 

16 

17 

16 
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22 
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EVENT  HOVE. REAR  GIVEN  SPEC. JOB  RNO  LEVEL 
DEFINE  LEV.RRR  RS  R  VRRIRBLE 
DEFINE  SPEC. JOB  RND  LEVEL  RS  VRRIRBLES 
LET  MfllNT.UNIT»LEVEL   LET  JOB=SPEC.JOB 
IF  THIS  JOB  IS  NOT  IN  HT. QUEUE   RETURN 
ELSE  SUBTRACT  1.  FROH  VEH. COUNT  (HfllNT. UNIT) 
REHOVE  THIS  JOB  FROH  MT. QUEUE  (HRINT. UNIT) 
IF  JOB  IS  IN  RUTOMOTIVE  REHOVE  JOB  FROH  flUTOHOTlVE  flLWRTS 

IN  RRHRHENT 

IN  HT. QUEUE 


IF  JOB  IS 

IF  JOB  IS 

IF  JOB  IS 

IF  JOB  IS 


REHOVE  JOB  FROH  RRHRHENT 
REHOVE  JOB  FROH  MT. QUEUE 
REHOVE  JOB  FROH  NS. QUEUE 
REHOVE  JOB  FROH  HI. QUEUE 
REHOVE  JOB  FROH  HP. QUEUE 


RLHRYS 
RLHRYS 
RLHRTS 
RLHRTS 
RLWRTS 


IN  HS. QUEUE 

IN  HI. QUEUE 

IF  JOB  IS  IN  HP. QUEUE 

IF  NRHE  (HRINT. UNIT)  >C0. HRINT 

FOR  ERCH  HRINT. UNIT  IN  SUP.BN,  DO 

IF  NRHE  (HRINT. UNIT) «C0. HRINT  GO  RHERO 
ELSE  LOOP 
•RHERD'  LET  LEV. RRR-HRINT. UNIT 
LET  HRINT. UNIT-LEVEL 

SCHEDULE  RN  RRRIVRL  GIVEN  SPEC. JOB  RND  LEV.RRR  IN  (BETR.F  (R (6. 1) ,R (6. 2) . 9) 
K  (T. ACTION  (6,3) -T.RCTION (6. 1) ) ) ♦T. ACT  ION (6. 1)  HOURS 
ELSE 

IF  JOB  IS  NOT  IN  EVRC.JOB  FILE  JOB  IN  EVRC.JOB 
ADD  1  TO  NUH.EVRC.RERR  RLHRTS 
REGARDLESS  RETURN 


END 
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1  EVENT  DAYLIGHT 

2  IF  TIME.V«H0URS.V  LT  LEAD. TIME   RETURN 

3  ELSE  IF  LIGHT. STflT  -  DAT 
U  LET  LIGHT. STflT-NIGHT 

5  LET  CCSL-.SmCCSL 

6  LET  CCSU-.5»«CCSU 

7  LET  LS-.l 

8  LET  TH-1.5»«TH 

9  LET  PR.INC.I0-.3 

10  LET  D»2.mD 

11  LET  SETUP. TlME-2. "SETUP. TIME 

12  LET  CON. SPEED».5mC0N. SPEED 

13  SCHEDULE  A  DAYLIGHT  IN  9  HOURS 
m  RETURN 

15  ELSE  LET  LIGHT. STAT-DRY 

16  LET  CCSL-2.«CCSL 

17  LET  CCSU»2.»<CCSU 

18  LET  LS-LOS.PR 

19  LET  TH-TH/1.5 

20  LET  PR. INC. ID-PR. DAY. INC 

21  LET  D-O.SmO 

22  LET  SETUP. TIME-. S^SETUP. TIME 

23  LET  CON. SPEED-2.NC0N. SPEED 

2ii  SCHEDULE  A  DAYLIGHT  IN  15.  HOURS 

25  RETURN 

26  END 
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1  EVENT  JUMP  GIVEN  LEV. JUMP 

2  DEFINE  LEV. JUMP  RS  R  VRRIRBLE 

3  DEFINE  F.TIME  RNO  J. TIME  RS  RERL  VRRIRBLES 
V  LET  MRINT. UNIT-LEV. JUMP 

5  LET  J. TIME-MCPD. ZERO/CON. SPEED+SETUP. TIME/MINUTES. V 

6  SCHEDULE  fl  GET. THERE  GIVEN  LEV. JUMP  IN  J. TIME  HOURS 

7  FOR  ERCH  JOB  IN  MS. QUEUE  (MRINT. UNIT) ,  00 

8  IF  MOB.DRH(JOB)  GT  0.2  RNO  JOB  IS  NOT  IN  RRMRHENT  RNO  JOB  IS  NOT  IN 

9  RUTOMOTIVE 

10  REMOVE  THE  JOB  FROM  HS. QUEUE (MRINT. UNIT) 

11  DESTROY  THE  JOB 

12  SUBTRRCT  1.  FROM  VEH. COUNT  (HRINT. UNIT) 

13  RLHRYS  LOOP 

IV  FOR  ERCH  JOB  IN  HI. QUEUE  (MRINT. UNIT) .  DO 

15  IF  MOB.DRM(JOB)  GT  0.2 

16  REMOVE  THE  JOB  FROM  HI . QUEUE (MRINT. UNIT) 

17  DESTROY  THE  JOB 

18  SUBTRRCT  1.  FROM  VEH. COUNT  (MRINT. UNIT) 

19  RLHRYS  LOOP 

20  FOR  ERCH  JOB  IN  HT. QUEUE (MRINT. UNIT)  .  00 

21  FOR  EACH  MOVE.RERR  IN  EV.S  (I .MOVE.REflR)  HITH  SPEC. JOB»JOB,  00 

22  IF  TIME. R(MOVE. REAR)  >  (15./ (HOURS. V«MINUTES.V))-»TIME.V 

23  CRNCEL  THE  MOVE.RERR   DESTROY  THE  MOVE.RERR 

24  IF  JOB  IS  IN  HS. QUEUE  REMOVE  JOB  FROM  US. QUEUE  ALHAYS 

25  IF  JOB  IS  IN  ARMRMENT  REMOVE  JOB  FROM  ARMAMENT   ALHAYS 

26  IF  JOB  IS  IN  AUTOMOTIVE  REMOVE  JOB  FROM  AUTOMOTIVE  ALHAYS 

27  IF  JOB  IS  IN  HP. QUEUE  REMOVE  JOB  FROM  HP. QUEUE  RLHRYS 

28  IF  JOB  IS  IN  HT. QUEUE  REMOVE  JOB  FROM  HT. QUEUE  ALHAYS 

29  DESTROY  THE  JOB 

30  SUBTRACT  1.  FROM  VEH. COUNT  (MRINT. UNIT) 

31  ALHAYS  LOOP 

32  LOOP 

33  FOR  EACH  JOB  IN  ARMRMENT (MAINT. UNIT) .  DO 

34  FOR  EACH  REPAIR  IN  EV.S (I .REPAIR)  HITH  SPEC. REP (REPAIR) -JOB  AND 

35  LEV.REP  (REPAIR) -MAINT. UNIT.  DO 

36  IF  HOB.DAM(JOB)>0.0 

37  LET  OCCUPATION (R.CREH) -IDLE 

38  CANCEL  THE  REPAIR  DESTROY  THE  REPAIR 

39  IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALHAYS 

40  IF  JOB  IS  IN  HS. QUEUE  REMOVE  JOB  FROM  HS. QUEUE  RLHRYS 

41  IF  JOB  IS  IN  RUTOMOTIVE  REMOVE  JOB  FROM  RUTOMOTIVE  ALHAYS 

42  DESTROY  THE  JOB 

43  SUBTRACT  1.  FROM  VEH. COUNT  (MAINT. UNIT) 

44  ELSE  LET  F.TIME  -  TIME. A (REPAIR) -TIME. V 

45  CANCEL  THE  REPAIR 

46  RESCHEDULE  THIS  REPAIR  IN  (F. TIME«M0URS. V) ♦J. TIME  HOURS 

47  flLHRTS  LOOP 

48  LOOP 

49  FOR  ERCH  JOB  IN  AUTOMOTIVE  (MR  I  NT. UNIT) .  DO 

50  FOR  EACH  REPAIR  IN  EV.S  (I .REPRIR)  HITH  SPEC. REP  (REPAIR) -JOB  AND 
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51  LEV. REP (REPAIR) -MfllNT. UNIT.  00 

52  LET  OCCUPflTiaN(A.CREM)«IDLE 

53  CANCEL  THE  REPAIR   DESTROY  THE  REPAIR 

5U  REMOVE  THE  JOB  FROM  AUTOMOTIVE  (MRINT. UNIT) 

55  IF  JOB  IS  IN  WS. QUEUE  REMOVE  JOB  FROM  HS. QUEUE  ALMATS 

56  IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALMATS 

57  DESTROY  THE  JOB 

58  SUBTRACT  1.  FROM  VEH. COUNT  (MAINT. UNIT) 

59  LOOP  LOOP 

60  LET   T.JUMP  (MAINT. UNIT) -TIME. V+J. TIME/HOURS. V 

61  RETURN 

62  END 
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1  EVENT  GET. THERE  GIVEN  LEV. GET 

2  DEFINE  LEV. GET.  SPEC. JOB,  CAN.  LEV. MOVE,  FP.  fl.CREH.  J  flS  VflRIflBLES 

3  LET  HfllNT. UNIT-LEV. GET 

tl  LET  T.JUHPCHRINT. UNIT) -0.0 

5  FOR  EACH  JOB  IN  HS. QUEUE  (MfllNT. UNIT)  UITH  IN. CAN  (JOB)  NE  0,  00 

6  IF  VEH. TYPE-TANK  LET  FP-11 

7  ELSE  LET  FP-9   ALWAYS 

8  FOR  J-1  TO  FP  LET  CAN. REC (IN. CAN  (JOB) .J) -0 

9  LET  SPEC. JOB- JOB 

10  CALL  CANNIBAL  GIVEN  SPEC. JOB  AND  LEV. GET  YIELDING  CAN 

11  IF  CAN-O  REHOVE  JOB  FROM  HS.(3UEUE  (HAINT.UNIT) 

12  FOR  EACH  HAINT.UNIT  IN  SUP.BN  MITH  NAME  (MAINT. UNIT) »0 

13  LET  LEV. HOVE-MAINT. UNIT 

IV  IF  H0B.0AH(J0B)<0.2  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND 

15  LEV. HOVE  NOW 

16  LET  HAINT. UNIT-LEV. GET 

17  FILE  JOB  IN  MT. QUEUE  (HAINT.UNIT) 

18  ELSE  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. HOVE  IN 

19  (BETA.  F  (A  (7, 1)  .A  (7.2)  ,9)  n  (T.  ACT  I  ON  (7,3)  -T.  ACTION  (7. 1) ) ) 

20  «T. ACTION (7.1)  HOURS 

21  FILE  JOB  IN  HT. QUEUE (HAINT.UNIT) 

22  ALMAYS  LET  HAINT. UNIT-LEV. GET 

23  ALWAYS  LOOP 

2V  IF  WS. QUEUE  IS  EHPTY  GO  ON  ELSE 

25  FOR  EACH  CREW  IN  SHOP  (HAINT.UNIT)  WITH  OCCUPATION  (CREW) -IDLE.  DO 

26  IF  HISSION  (CREW) -AUTO 

27  FOR  EACH  JOB  IN  NS. QUEUE  (HAINT.UNIT) .  DO 

28  IF  HOB.OAH(JOB)>0  AND  JOB  IS  NOT  IN  ARHAHENT 

29  AND  JOB  IS  NOT  IN  AUTOHOTIVE 

30  REHOVE  JOB  FROH  WS. QUEUE 

31  FILE  JOB  IN  AUTOHOTIVE  LET  SPEC. JOB-JOB 

32  LET  A. CREW-CREW 

33  LET  T. AUTO. REP- (BETA. F  (A  (3. 1)  , A  (3.2). 6)*  (T. ACTION  (3,3)- 
311  T.ACTI0N(3.1)))-'T.ACTI0N(3.1) 

35  SCHEDULE  A  REPAIR  GIVEN  A. CREW.  SPEC. JOB  AND  LEV. GET  IN 

36  T. AUTO. REP  HOURS 

37  ALWAYS  LOOP 

38  ELSE  FOR  EACH  JOB  IN  WS. QUEUE  (HAINT.UNIT) .  00 

39  IF  FP.0AH(J0B)>0.0  AND  JOB  IS  NOT  IN  AUTOHOTIVE 
UO      .  AND  JOB  IS  NOT  IN  ARHAHENT 

Ul  REHOVE  JOB  FROH  WS. QUEUE (HAINT.UNIT) 

U2  FILE  JOB  IN  ARHAHENT  (HAINT. UNIT) 

113  LET  SPEC.  JOB-JOB  LET  A. CREW-CREW 

UU  LET  T.ARH.REP-(BETA.F(A(4,1)  .A(ll.2).6)H(T.ACTI0N(ll,3)- 
U5  T.ACTION  (4. 1)))-»T.  ACTION  (4,1) 

116  SCHEDULE  A  REPAIR  GIVEN  A. CREW.  SPEC.  JOB  AND  LEV. GET  IN 

U7  T.ARH.REP  HOURS 

118  ALWAYS  LOOP 

U9  ALWAYS  LOOP 

50  'ON'   RETURN  END 
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1  EVENT  STOP.SIMULRTION 

2  DEFINE  IDENT  f)S  RN  RLPHfl  VRRIRBLE 

3  DEFINE  LOS.RRT.  PER.FIX.REC.  PR.REP.DRM,  P. TROOPS.  TROOPS  flS  REAL  VRRIRBLES 
«  FOR  ERCH  HRINT.UNIT  IN  SUP.BN.  00 

5  ROD  NH. FOLKS (HRINT.UNIT)  TO  TROOPS 

6  RDO  NF. FOLKS (HRINT.UNIT)  TO  TROOPS  LOOP 

7  LET  LOS.RRT-S.R.CRS/S.CRS 

6  LET  PER.FIX.REC-NUH.RET.BRTTLE/SUH.REC 

9  LET  PR.REP.ORH«NUH.RET.BRTTLE/S.CflS 

10  LET  P. TROOPS-TROOPS/TOT. FOLKS 

11  PRINT  5  LINES  WITH  TIHE.V  THUS 
12 

13     SIHULRTION  ENDED  RFTER  mm.m  DRYS 

IV 

15  HERE  RRE  THE  RESULTS  FOR  RECOVERY  RND  EVRCURTION 

16 

17  PRINT  5  LINES  WITH  SUH.REC,  SUH.NEED.REC.  MEflN.REC  AND  flVG.NEEO  THUS 

18  MMM  VEHICLES  RECOVERED   mmm  VEHICLES  NEEDED  RECOVERY 
19 

20  HERN  NUHBER  OF  VEHICLES  RECOVERED  PER  RTTRCK  hm. 
21 

22  HERN  NUHBER  OF  VEHICLES  NEEDING  RECOVERY  PER  RTTRCK  nnn. 

23  PRINT  3  LINES  THUS 
211 

25  HERE  RRE  THE  HRINTENRNCE  RESULTS 
26 

27  PRINT  e  LINES  HITH  MORK. ORDER,  NUH.RET.BRTTLE.  NUH. EVRC.RERR  RND 

28  CRN. FIX  THUS 

29  NUHBER  OF  JOBS  RECEIVED  mmmmm 
30 

31  NUHBER  OF  JOBS  REPAIRED            mmmmm 

32 

33  NUHBER  OF  JOBS  EVRCURTED           mmkmm 

3« 

35  NUHBER  OF  SUCCESSFUL  CRNNIBRLIZRTIONS   mmmm 

36 

37  PRINT  2  LINES  HITH  HERN.DOUN.TIHE  THUS 

38  flVERRGE  REPRIR  CYCLE  TIHE  m DRYS 

39 

UO  PRINT  II  LINES  HITH  HERN. RUTO. REP  RND  HERN. RRH. REP  RS  FOLLOWS 

«1  RVERRGE  REPRIR  TIHE  FOR  RUTOHOTIVE  JOBS  MRS  mm.mmxm  HOURS 

42 

U3  RVERRGE  REPRIR  TIHE  FOR  RRHRHENT  JOBS  MRS  mm.mmmm  HOURS 

UU 

US  PRINT  U  LINES  HITH  RVG.HP.TINE  RND  HERN. TI. TIHE  THUS 

U6  RVERRGE  TIHE  R  JOB  HRITS  FOR  PRRTS  IS  mm.mmmm  HOURS 

«7 

US  RVERRGE  TIHE  R  JOB  HRITS  FOR  INSPECTION  IS  mm.mmmh  HOURS  (COHPRNY) 

U9 

50  PRINT  10  LINES  HITH  LOS.RRT,  PER.FIX.REC.  PR.REP.DRH,  P. TROOPS  THUS 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6U 
65 
66 
67 
68 
69 
70 
71 
72 
73 
711 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9V 
95 
96 
97 
98 
99 
100 


LET  IDENT=."FH02" 
LET  IDENT»"FHD3- 
LET  IDENT»"FWDy 


MEASURES  OF  EFFECTIVENESS 

RED  CRS/BLUE  CRS  -  mmm.mmm 

PERCENT  OF  RECOVERED  JOBS  REPAIRED  »«.•««« 

PERCENT  OF  DAHAGED  VEHICLES  REPAIRED  h.hhh 

PERCENT  OF  TROOPS  NOT  KILLED  n.^nn 

FOR  EACH  HAINT.UNIT  IN  SUP.BN.  DO 

IF  NAME  (HAINT.UNIT) «0  LET  IDENTa'MAlNT.COMP- 

ALHATS  IF  NAME  (HAINT.UNIT) -1   LET  1DENT--FWD1" 

ALMATS  IF  NAME (HAINT.UNIT) -2 

ALWAYS  IF  NAHE  (HAINT.UNIT) -3 

ALHATS  IF  NAHE  (HAINT.UNIT)  »>4 

REGARDLESS 

PRINT  2  LINES  MITH  IDENT  THUS 
BACKLOG  FOR  mmmmmmmmmm 

IF  HI. QUEUE  IS  NOT  EHPTY 

PRINT  2  LINES  HITH  IDENT  THUS 

HAITIN6  INSPECTION  AT  mmmmmmmmmm 

PRINT  1  LINE  THUS 
HO  NUH    TIHE  DOHN    VEH  TTPE    UNIT       FP  DAH    MOB  DAH 
FOR  EACH  JOB  IN  HI. QUEUE.  DO 
PRINT  1  LINE  HITH  HO. NUH.  TIHE. DOHN. VEH. TYPE.  UNIT. FP. DAM,  MOB. DAM  THUS 

MMMM       MMM.MMMMM  M  M  M.MMMM     M.MMMM 

LOOP 

ELSE  PRINT  1  LINE  THUS 

NO  JOBS  UAITING  INSPECTION 
flLHAYS  IF  HS. QUEUE  IS  NOT  EMPTY 
PRINT  2  LINES  HITH  IDENT  THUS 
HAITING  SHOP  AT  mmmmmmmmmm 

PRINT  1  LINE  THUS 
HO  NUH   TIHE  DOHN   VEH  TYPE    UNIT      FP  DAH   HOB  DAM 
FOR  EACH  JOB  IN  HS. QUEUE.  DO 
PRINT  1  LINE  HITH  HO. NUH,  TIHE. DOWN. VEH.  TYPE,  UNIT. FP. DAH.  HOB. DAH  THUS 


MMM.MMMMM 


M. MMMM 


M. MMMM 


LOOP 

ELSE  PRINT  I  LINE  THUS 

NO  JOBS  HAITING  SHOP 
ALHAYS  IF  HT. QUEUE  IS  NOT  EHPTY 
PRINT  2  LINES  HITH  IDENT  THUS 

WAITING  TRANSPORTATION  AT  mmmmmmmmmm 


PRINT  1  LINE  THUS 
WO  NUM   TIME  DOHN   VEH  TYPE    UNIT 


FP  DAM   HOB  DAM 
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101  FOR  EACH  JOB  IN  MT. QUEUE.  00 

102  PRINT  1  LINE  WITH  WO. NUM.  TIME. DOWN. VEH. TYPE,  UNIT.FP.OflM,  MOB.DflM  THUS 

103  MMMM       MMM.MMMMM  M              M              M.MMMM      M.MMMM 

1014  LOOP 

105  ELSE  PRINT  1  LINE  fiS  FOLLOWS 

106  NO  JOBS  WRITING  TRRNSPORTRTION 

107  RLHRTS  IF  WP. QUEUE  IS  NOT  EMPTY 

108  PRINT  2   LINES  WITH  IDENT  THUS 

109  WRITING  PARTS  RT  wkw-h-mxmm 
110 

111  PRINT  1  LINE  THUS 

112  WO  NUM   TIME  DOWN   VEH  TYPE    UNIT  FP  ORH   MOB  ORM 

113  FOR  ERCH  JOB  IN  WP. QUEUE.  DO 

IIV  PRINT  1  LINE  WITH  WO. NUM.  TIME. DOWN. VEH. TYPE,  UNIT.FP.DRM;  MOB.DflM  THUS 

lis  MMMM       MMM.MMMMM           M              M              M.MMMM      M.MMMM 

116  LOOP 

117  ELSE  PRINT  1  LINE  THUS 

118  NO  JOBS  WRITING  PRRTS 

119  RLHRTS  IF  RRMRMENT  IS  NOT  EMPTY 

120  PRINT  2  LINES  WITH  IDENT  THUS 

121 

122  IN  SHOP  (RRMRMENT)  RT  mmmmmmmmmm 

123  PRINT  1  LINE  THUS 

12U  WO  NUM   TIME  DOWN   VEH  TYPE    UNIT      FP  ORH   MOB  DRM   REP  TIME 

125  FOR  EACH  JOB  IN  RRMRMENT (HRINT. UNIT) .  DO 

126  PRINT  1  LINE  WITH  WO. NUM.  TIME. DOWN. VEH. TYPE.  UNIT.FP.DRM.  MOB. DRM. 

127  T. ARM. REP   THUS' 

128  MMMM       MMM.MMMMM  M              M              M.MMMM      M.MMMM       MM. MMMM 

129  LOOP 

130  ELSE  PRINT  1  LINE  THUS 

131  NO  JOBS  IN  RRMRMENT  SHOP 

132  RLWRYS  IF  RUTOMOTIVE  IS  NOT  EMPTY 

133  PRINT  2  LINES  WITH  IDENT  THUS 
13U 

135  IN  SHOP  (AUTOMOTIVE)  RT  mmmmmmmmmm 

136  PRINT  1  LINE  THUS 

137  WO  NUM    TIME  DOWN    VEH  TYPE    UNIT  FP  DRM    MOB  DAM    REP  TIME 

138  FOR  ERCH  JOB  IN  AUTOMOTIVE (MRINT. UNIT) .  DO 

139  PRINT  1  LINE  WITH  WO. NUM.  TIME. DOWN, VEH. TYPE.  UNIT.FP.DRM.  MOB. DAM, 
lUO  T. AUTO. REP   THUS 

mi  MMMM                 MMM.MMMMM                         M                                  M                                 M.MMMM             M.MMMM                  MM. MMMM 

U2  LOOP 

1H3  ELSE  PRINT  1  LINE  THUS 

mU  NO  JOBS  IN  RUTOMOTIVE  SHOP 

lUS  RLHRYS  LOOP 

lUe  PRINT  3  LINES  THUS 

1«7 

1U8  THE  FOLLOWING  JOBS  HRVE  BEEN  COMPLETEOt 

m9 

150  PRINT  1  LINE  THUS 
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151  MO  NUM   TIME  DOWN   VEH  TTPE   UNIT   FP  DflM   MOB  DflM   flUTO  REP  ARM  REP   REP  AT 

152  FOR  ERCH  JOB  IN  CLOSED. JOB.  00 

153  PRINT  1  LINE  WITH  WO. NUM.  TIME. DOWN, VEH. TTPE,  UNIT. FP. DflM.  MOB. DflM, 
151  T.flUTO.REP,  T.flRM.REP,  REP. UNIT  THUS 

155  MMMM      MMM.MHMM  N           M       M.MMMM      M.MMMM    MM.MMMM      MM.MMMM         M 

156  LOOP 

157  PRINT  3  LINES  THUS 
158 

159  THE  FOLLOWING  JOBS  HAVE  BEEN  EVflCUflTED  REflRt 
160 

161  PRINT  1  LINE  THUS 

162  WO  NUM    TIME  DOWN   VEH  TYPE    UNIT  FP  DflH   MOB  DflM 

163  FOR  EflCH  JOB  IN  EVflC.JOB.  00 

164  PRINT  1  LINE  WITH  WO. NUM,  TIME. DOWN. VEH. TYPE,  UNIT, FP. DflM,  MOB. DflH  THUS 

165  MMMM       MMM.MMMMM  M              M              M.MMMM      M.MMMM 

166  LOOP 

167  CALL    STflRT.OVER 

168  RETURN 

169  END 
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1  ROUTINE   STfiRT.evER 

2  LET   NUM.EVflC.REflR-0 

3  LET   NUH.RET.BflTTLE-0 
U  LET   COUNT-0 

5  LET  CflN.FlX-0 

6  LET   TlME.V-0.0 

7  RESET  TOTALS  OF  TOT.REC  AND  TOT. NEED. REC 

6  RESET  TOTALS  OF  DOWN. TIME.  H. REP. TIME.  ARM. REP. TIME,  TI.TIME 

9  RESET  TOTALS  OF  CAS. COUNT  AND  R.CAS.CNT 

10  FOR  EACH  REPAIR  IN  EV.S  (I . REPAIR) ,  DO 

11  CANCEL  THE  REPAIR   DESTROY  THE  REPAIR   LOOP 

12  FOR  EACH  DAYLIGHT  IN  EV.S  (I .DAYLIGHT) .  DO 

13  CANCEL  THE  DAYLIGHT   DESTROY  THE  DAYLIGHT  LOOP 
1*4  FOR  EACH  HOVE.  REAR  IN  EV.S  (I .  HOVE.  REAR)  .  00 

15  CANCEL  THE  MOVE. REAR   DESTROY  THE  MOVE. REAR  LOOP 

16  FOR  EACH  DIAGNOSIS  IN  EV.S  (I . DIAGNOSIS) .  DO 

17  FILE  SPEC. DIAG (DIAGNOSIS)  IN  KILL. JOB 

18  CANCEL  THE  DIAGNOSIS   DESTROY  THE  DIAGNOSIS   LOOP 

19  FOR  EACH  JUMP  IN  EV. S  (I . JUMP) .  00 

20  CANCEL  THE  JUMP   DESTROY  THE  JUMP   LOOP 

21  FOR  EACH  GET. THERE  IN  EV.S  (I . GET. THERE) .  DO 

22  CANCEL  THE  GET. THERE   DESTROY  THE  GET. THERE   LOOP 

23  FOR  EACH  ARRIVAL  IN  EV.S  (I .ARRIVAL) .  DO 

2"*  CANCEL  THE  ARRIVAL   DESTROY  THE  ARRIVAL   LOOP 

25  FOR  EACH  BREAK  IN  EV.S  (I .BREAK) .  DO 

26  CANCEL  THE  BREAK   DESTROY  THE  BREAK   LOOP 

27  FOR  EACH  FAILURE  IN  EV. S  (I .FAILURE) ,  00 

28  CANCEL  THE  FAILURE   DESTROY  THE  FAILURE   LOOP 

29  FOR  EACH  BATTLE  IN  EV.S  (I .BATTLE) .  DO 

30  CANCEL  THE  BATTLE   DESTROY  THE  BATTLE   LOOP 

31  FOR  EACH  PARTS. COME  IN  EV. S  (I . PARTS. COME) ,  DO 

32  CANCEL  THE  PARTS. COME   DESTROY  THE  PARTS. COME   LOOP 

33  FOR  EACH  MAINT.UNIT  IN  SUP.BN,  DO 

34  FOR  EACH  JOB  IN  HT. QUEUE  (MAINT.UNIT) .  DO 

35  IF  JOB  IS  IN  HT. QUEUE 

36  REMOVE  THE  JOB  FROM  MT.  (3UEUE  (MAINT.UNIT) 

37  ALWAYS 

38  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALMAYS 

39  LOOP 

(10  FOR  EACH  JOB  IN  WS.  QUEUE  (MAINT.UNIT)  .  DO 
HI  IF  JOB  IS  IN  MS. QUEUE 

42  REMOVE  JOB  FROM  MS. QUEUE  (MAINT. UNIT) 

43  RLHAYS 

44  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALMAYS 

45  LOOP 

46  FOR  EACH  JOB  IN  ARMAMENT  (MAINT. UNI T) ,  DO 

47  IF  JOB  IS  IN  ARMAMENT 

48  REMOVE  JOB  FROM  ARMAMENT (MAINT. UNIT) 

49  ALWAYS 

50  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALMAYS 
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51  LOOP 

52  FOR  ERCH  JOB  IN  AUTOMOTIVE  (MRINT. UNI T) ,  00 

53  IF  JOB  IS  IN  AUTOMOTIVE 

5U  REMOVE  JOB  FROM  AUTOMOTIVE (HRINT. UNIT) 

55  flLHflTS 

56  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALHRYS 

57  LOOP 

58  FOR  EACH  JOB  IN  HI .QUEUE  (HAINT. UNIT) .  DO 

59  IF  JOB  IS  IN  HI. QUEUE 

60  REMOVE  JOB  FROM  HI .QUEUE  (MRINT. UNIT) 

61  ALHATS 

62  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALHRYS 

63  LOOP 

6V  FOR  ERCH  JOB  IN  HP. QUEUE  (HRINT. UNIT) ,  00 

65  IF  JOB  IS  IN  HP. QUEUE 

66  REMOVE  JOB  FROM  HP. QUEUE  (MRINT. UNIT) 

67  ALHAYS 

68  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALHATS 

69  LOOP 

70  LOOP 

71  FOR  EACH  JOB  IN  CLOSED. JOB.  DO 

72  REMOVE  JOB  FROM  CLOSED. JOB 

73  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALHAYS 
7t|  LOOP 

75  FOR  EACH  JOB  IN  EVAC.JOB.  DO 

76  REMOVE  THE  JOB  FROM  EVAC.JOB 

77  IF  JOB  IS  NOT  IN  KILL. JOB  FILE  JOB  IN  KILL. JOB  ALHAYS 

78  LOOP 

79  FOR  EACH  JOB  IN  KILL. JOB.  00 

80  REMOVE  THE  JOB  FROM  KILL. JOB   DESTROY  THE  JOB   LOOP 

81  FOR  I-l  TO  100,  FOR  J"l  TO  11.  LET  CAN.REC  (I. J) -0 

82  FOR  I-l  TO  550,  FOR  J-1  TO  11,  LET  DAM.REC  [I . J) «0.0 

83  FOR  EACH  HAINT. UNIT  IN  SUP.6N.  00 
81  REMOVE  THE  HAINT. UNIT  FROM  SUP.BN 

85  DESTROY  THE  HAINT. UNIT   LOOP 

86  RETURN 

87  END 
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1  ROUTINE  TO  ASSESS. DflM  GIVEN  SPEC. JOB 

2  DEFINE  SPEC. JOB.  MO.  TCOUNT  RS  VRRIflBLES 

3  DEFINE  MOB.  FP.  Z  RND  T  RS  VRRIRBLES 
V  LET  JOB-SPEC. JOB 

5  IF  VEH.TTPE  (JOB) -TANK  LET  MOB-6  LET  FP-11 

6  ELSE  LET  MOB-6  LET  FP-9 

7  RLMRTS  LET  MO=HO.NUM  (JOB) 
a  IF  HOB. DAM (JOB)  NE  0. 

9  LET  Y-INT.F(MOB.OflM(JOB)»<REflL.F(MOB)) 

10  'ORRW   LET  Z=RflNDI.F(l.M0B,8) 

11  IF  ORM.REC(MO.Z)  NE  0.  GO  ORAM 

12  ELSE  LET  DAM.REC(H0.Z)«UNIF0RM.F(0..1..  7) 

13  ADO  1  TO  TCOUNT   IF  TCOUNT  LT  T  GO  ORAM 
m  REGARDLESS  RLHRTS  IF  FP.ORM  (JOB) NE  0. 

15  LET  Y-INT.F  (FP.DRM(JOB)*<REflL.F  (FP-MOB)) 

16  LET  TCOUNT-O 

17  'ROLL*   LET  Z»RRNDI.F((M0B*1) .FP.B) 

18  IF  DAM.REC(Ma.Z)  NE  Q.   GO  ROLL 

19  ELSE  LET  DAM.REC (WO.Z) »RANDOM.F (7) 

20  ADD  1  TO  TCOUNT   IF  TCOUNT  LT  T  GO  ROLL 

21  REGARDLESS  ALURTS 

22  RETURN 

23  END 
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1  ROUTINE  CANNIBAL  GIVEN  SPEC. JOB  RNO  LEVEL  YIELDING  CAN 

2  DEFINE  FB.  I.  J.  NSB,  WO  AS  VARIABLES 

3  DEFINE  SPEC. JOB  AS  A  VARIABLE 
l|  DEFINE  Z  AS  A  REAL  VARIABLE 

5  DEFINE  X  AS  A  REAL  VARIABLE 

6  DEFINE  JUNK  AS  A  VARIABLE 

7  DEFINE  CAN.VEH  AS  A  I-DIMENSIONAL  ARRAY 

8  DEFINE  LEVEL  AS  A  VARIABLE 

9  DEFINE  CAN  AS  A  VARIABLE 

10  LET  JOB«SPEC.JOB  LET  MAINT.UNIT=LEVEL 

11  LET  MO»Ma.NUM(JOB) 

12  IF  VEH. TYPE (JOB) «TANK   LET  FP»11 

13  ELSE  LET  FP-9 

lU  ALWAYS  RESERVE  CAN.VEH(m]  AS  FP 

15  FOR  I»l  TO  FP,  DO 

16  IF  OAH.REC(WO.I)>0.   ADO  1  TO  NSB 

17  ALWAYS  LOOP 

18  FOR  EACH  JUNK  IN  WT. QUEUE  WITH  VEH. TYPE (JUNK) -VEH. TYPE  (SPEC. JOB) .  DO 

19  IF  JUNK-JOB   GO  CONTINUE   ALWAYS 

20  FOR  J-1  TO  FP,  DO 

21  IF  OAH.REC(WO,J)-0.  GO  LOOP 

22  ELSE  IF  CAN.VEH  (J)  NE  0   GO  LOOP 

23  ELSE  IF  DAH.REC(W0.J)>1.-0AH.REC(W0.NUH(JUNK)  ,  J)  GO  LOOP 

24  ELSE  LET  X-RANDOH.F(l) 

25  IF  X>1.0-0AM.REC(W0.NUM(JUNK]  , J)   GO  LOOP 

26  ELSE  LET  CAN. VEH  (J) -JUNK   ADO  1  TO  CAN 

27  ADD  1  TO  CAN. NUH  (JUNK)   ADO  1.0  TO  DAM.REC  (WO. NUM  (JUNK) . J) 

28  'LOOP'  LOOP 

29  IF  CAN-NSB   GO  AHEAD 

30  ELSE  'CONTINUE*   LOOP 

31  FOR  EACH  JUNK  IN  WP. QUEUE  WITH  VEH. TYPE  (JUNK) »VEH. TYPE  (SPEC. JOB) ,  00 

32  IF  JUNK-JOB  GO  ON  ALWAYS 

33  FOR  J-I  TO  FP,  DO 

3y  IF  0AH.REC(W0.J)-0.  GO  AROUND 

35  ELSE  IF  CAN.VEH  (J)  NE  0  GO  AROUND 

36  ELSE  IF  DAH.REC(WO. J)>1.-0AM.REC (Wa.NUH(JUNK) .J)  GO  AROUND 

37  ELSE  LET  X-RANDOM.F  (1) 

38  IF  X>1.0-0AH.REC(W0.NUH(JUNK)  ,  J)   GO  AROUND 

39  ELSE  LET  CAN. VEH  (J) -JUNK   ADO  1  TO  CAN 

VO  ADD  1  TO  CAN. NUM (JUNK)   ADD  1.0  TO  DAH.REC (WO.NUM  (JUNK) , J) 

m  'AROUND'   LOOP 

V2  IF  CAN-NSB   GO  AHEAD 

«3  ELSE  'ON'   LOOP 

•il  "CANNOT  CANNIBALIZE"  LET  CAN=0 

US  RELEASE  CAN.VEH(«)       RETURN 

46  'AHEAD'   "PREPARE  TO  CANNIBALIZE" 

U7  IF  JOB  IS  IN  WT. QUEUE   REMOVE  JOB  FROM  WT. QUEUE     ALWAYS 

V8  IF  JOB  IS  IN  WP. QUEUE 

•19  REMOVE  JOB  FROM  WP. QUEUE     ALWAYS 

50  IF  JOB  IS  NOT  IN  WS. QUEUE  FILE  JOB  IN  WS. QUEUE  ALWAYS 


165 


51  FOR  J-1  TO  FP,  DO 

52  IF  CflN.VEH(J)»0  GO  THRU 

53  ELSE  FOR  EACH  MOVE.REfiR  IN  EV. S  (I .MOVE.REflRJ  WITH  SPEC. JOB»CflN. VEH  (J) ,  DO 
511  CANCEL  THIS  MOVE. REAR  DESTROY  THIS  MOVE. REAR 

55  'THRU'   LOOP 

56  FOR  EACH  PARTS. COME  IN  EV.S  (I .PARTS. COME)  WITH  SPEC. JOB-CAN. VEH (J)  ,  DO 

57  CANCEL  THIS  PARTS. COME 

58  LET  Z-(BETA.F  (A  (5, 11  .A  (5,2)  ,6)  n  (T.  ACTION  (5.  3) -T.  ACTION  (5. 1)  ) )  ♦ 

59  T.ACTI0N(5.1) 

60  LET  Z-Z/24.0 

61  LET  T. PART. COMES-MAX.F  (TIME. A  (PARTS. COME), TIME. V*Z)  -TIME.V 

62  RESCHEDULE  THIS  PARTS. COME  GIVEN  CAN.VEH(J)  AND  LEVEL  IN  T. PART. COMES 

63  HOURS 

6H  IF  CAN.VEH(J)  IS  NOT  IN  WP. QUEUE  FILE  CAN.VEH(J)  IN  WP. QUEUE (MAINT. UNIT) 

65  ALWAYS 

66  LOOP 

67  LOOP 

68  FOR  I-l  TO  100.  00 

69  FOR  J-1  TO  11,  DO 

70  IF  CAN.REC(I,J)  NE  0  GO  DROP 

71  ELSE  LOOP 

72  LET  IN. CAN (JOB) «I   GO  FURTHER 

73  'DROP*  LOOP 

7q  'FURTHER'  FOR  J-1  TO  FP  LET  CAN.REC  (IN. CAN (JOB) , J) =CAN. VEH (J) 

75  RELEASE  CAN.VEH(h) 

76  RETURN 

77  END 
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1  ROUTINE   TO   SUBSTITUTE   GIVEN   SPEC. JOB.    LEVEL   AND   fl.CREH 

2  DEFINE   fl.CREW.    FP,    J.    LEVEL,    M.    N.    MO   flS   VflRIflBLES 

3  DEFINE   JOB. MOVE   RS   R   VRRIRBLE 

H  LET   MflINT.UNlT=LEVEL      LET   JOB-SPEC. JOB      LET   CREW-fl.CREH 

5  LET  MO-WO.NUH(JOB) 

6  IF  VEH. TYPE (JOB) -TANK  LET  FP-11 

7  ELSE  LET  FP-9 

8  RLHRTS  IF  MISSION  (CREM) -RUTO  LET  H-1   LET  N-6 

9  ELSE  LET  M-7  LET  N-FP 

10  ALMRYS  FOR  J«M  TO  N.  00 

11  IF  CRN.REC(IN.CRN(JOB)  .J)>0  GO  LOOP 

12  ELSE  ROD  (ORH.REC  (HO.  J) -1.0)  TO  ORM.REC  (HO.NUH  (CRN.REC  (IN.CRN  (JOB)  .  J) )  .  J) 

13  SUBTRRCT  1  FROM  CRN. NUM  (CRN.REC  (IN.CRN (JOB) . J) ) 

14  IF  CRN.NUM  (CRN.REC  (IN.CRN (JOB) , J))  NE  0  GO  ZERO  ELSE 

15  IF  CRN.REC  (IN.CRN  (JOB) .J)  IS  NOT  IN  MT. QUEUE   GO  ZERO  ELSE 

16  LET  JOB.MOVE*CRN.REC (IN.CRN (JOB) .J) 

17  SCHEDULE  fl  MOVE. REAR  GIVEN  JOB. MOVE  AND  LEVEL  IN  (BETA. F  (fi  (7, 1) , 

18  R(7.2)  ,9)«(T.RCT10N(7,3)-T.flCTION(7,l)))*T.flCTI0N(7,n   HOURS 

19  'ZERO* 

20  LET  CRN.REC  (IN.  CRN  (JOB)  .J) -0 

21  'LOOP*  LOOP 

22  RETURN 

23  END 
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1  ROUTINE  OET. ALLOC 

2  DEFINE  PEOPLE  RS  A  REAL  VARIABLE 

3  DEFINE  LEV. ATT  AS  A  VARIABLE 

U         DEFINE  P.OET.  LAHBOA  AND  X  AS  REAL  VARIABLES 

5  FOR  EACH  MAINT.UNIT  IN  SUP.BN  HITH  NAHE  (HAINT.UNIT) >0.  DO 

6  LET  LAHB0A«1./SQRT.F (VEH. COUNT (MAINT.UNIT)) 

7  LET  P. DET»EXP.F(- (LAMBOA-D.FLOT (MAINT.UNIT) mnALFA)) 

8  LET  PEOPLE-NM.FOLKS  (MAINT.UNIT)  •»NF,F(3LKS  (MAINT.UNIT) 

9  IF  PEOPLE  LE  2.  PRINT  1  LINE  HITH  NAME (MAINT.UNIT)  THUS 

10  HAINT  UNIT  •  m   ALREADY  DESTROYED 

11  CO  LOOP  QTHERHISE 

12  LET  X'RANOOH.F (7) 

13  IF  X  LE  P.DET  PRINT  1  LINE  MITH  NAME  (MAINT.UNIT)  AND  PEOPLE  THUS 
IV  MAINT  UNIT  •  >«  DETECTED  THIS  BATTLE    >*>tm   PERSONNEL  PRESENT 

15  LET  LEV. ATT-HAINT. UNIT 

16  CALL  ATTACK  GIVEN  LEV. ATT 

17  LET  PEOPLEiPEOPLE-NM.FOLKS (MAINT.UNIT) -NF. FOLKS (MAINT.UNIT) 

18  PRINT  1  LINE  WITH  PEOPLE  THUS 

19  -nm   PEOPLE  KILLED  IN  THIS  ATTACK 

20  ELSE  PRINT  1  LINE  MITH  NAME (MAINT.UNIT)  .  P.DET.  D.FLOT  AND  VEH. COUNT  THUS 

21  MAINT  UNIT  ■  »«  NOT  DETECTED    P.DET  «  k.mwmh  D.FLOT  -  »«»«.«n«  VEH  •  •«•<•«. 

22  PRINT  1  LINE  HITH  PEOPLE  THUS 

23  mnn    PERSONNEL  PRESENT  AT  UNIT 
2«i  ALWAYS  'LOOP*  LOOP 

25  RETURN 

26  END 
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1  ROUTINE   flTTflCK  GIVEN  LEV.fiTT 

2  DEFINE   LEV.RTT   AND   SPEC. JOB   ftS   VflRlflBLES 

3  DEFINE    I    AND   LEV. MOVE   flS   VflRlflBLES 

V  DEFINE    HIS.    N.flUTO.    N.flRM   flS    VflRlflBLES 

5  DEFINE   N.    F.    LOF.    LOM   flS  REflL    VflRlflBLES 

6  LET   MfllNT.UNlT-LEV.flTT 

7  IF  PK.PERS  GT  RANDOM. F  (7)  SUBTRACT  1.  FROM  NM. FOLKS (MfllNT. UNIT)  ALWAYS 

8  FOR  EACH  CREM  IN  SHOP  (HAINT. UNIT)  MITH  OCCUPATION  (CREM)  NE  DEAD.  DO 

9  FOR  I>1  TO  N.FOLKS(CREH)  .00 

10  IF  PK.PERS  GT  RANDOH.F  (7)  "GUT  KILLED" 

11  IF  MISSION (CREW) "AUTO   SUBTRACT  1.  FROM  NM. FOLKS  (MAINT. UNIT) 

12  ELSE  SUBTRACT  1.  FROM  NF. FOLKS (MfllNT.  UNIT) 

13  ALWAYS  SUBTRACT  1.  FROM  N. FOLKS  (CREW) 
m  ALWAYS  LOOP 

15  LOOP 

16  LET  M«NM. FOLKS  (MAINT. UNIT) /2. 

17  LET  F-NF. FOLKS  (MAINT. UNIT) /2. 

18  LET  N.ARM-TRUNC.F  (F) 

19  LET  N.AUTO-TRUNC.F(M) 

20  IF  FRAC.F(H)>0.  LET  L0M»1.  ALWAYS 

21  IF  FRAC.F(F)>0.  LET  LOF-1.  ALWAYS 

22  FOR  EACH  CREW  IN  SHOP  (MAINT. UNIT)  WITH  OCCUPATION  (CREW) =BUSY.  00 

23  IF  MISSION  (CREW) >AUTO 

2^  IF  N.AUTO>0  SUBTRACT  1  FROM  N.AUTO 

25  LET  N.F0LKS(CREH)-2. 

26  ELSE  LET  OCCUPATION  (CREW) >0EAD 

27  FOR  EACH  REPAIR  IN  EV. S  (I . REPAIR)  WITH  fl.CREW=CREW,  DO 

28  CANCEL  THE  REPAIR  LET  JOB-SPEC. REP  (REPAIR) 

29  REMOVE  JOB  FROM  AUTOMOTIVE  (MAINT. UNIT) 

30  FILE  JOB  IN  WS. QUEUE (MAINT. UNIT) 

31  DESTROY  THE  REPAIR  LOOP 

32  ALWAYS 

33  ELSE  IF  N.ARH>0  SUBTRACT  1  FROM  N.flRM 
311  LET  N.  FOLKS  (CREW) -2. 

35  ELSE  LET  OCCUPATION (CREW) >OEAO 

36  FOR  EACH  REPAIR  IN  EV.  S  (I  .REPAIR)  WITH  fl.  CREM=>CREW.  DO 

37  CANCEL  THE  REPAIR   LET  JOB-SPEC. REP  (REPAIR) 

38  REMOVE  JOB  FROM  ARMAMENT  (MAINT. UNIT) 

39  FILE  JOB  IN  WS. QUEUE  (MAINT. UNIT) 
VO  DESTROY  THE  REPAIR   LOOP 

HI  REGARDLESS  ALWAYS  LOOP 

112  FOR  EACH  CREW  IN  SHOP  (HAINT. UNIT)  WITH  OCCUPATION  (CREW) -IDLE.  00 

113  IF  MISSION  (CREW) -AUTO 

W  IF  N.AUTO>0  SUBTRACT  1  FROM  N.flUTO  LET  N. FOLKS  (CREW) -2. 

KS  ELSE  LET  OCCUPATION  (CREW) -DEAD 

46  ALWAYS 

17  ELSE  IF  N.ARM>0  SUBTRACT  1  FROM  N.ARM   LET  N. FOLKS  (CREW) -2. 

118  ELSE  LET  OCCUPATION  (CREW) -DEAD 

US  ALWAYS 

50  ALWAYS  LOOP 
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51  IF  LOF-1.  FQR  EACH  CREH  IN  SHOP  (MfllNT. UNIT)  WITH  MISSION  (CREW) -ARM 

52  RNO  aCCUPRTION(CREW)  NE  DERD.  00 

53  RDO  1.  TO  N. FOLKS  (CREW)  GO  DOWN   LOOP 
5U  'DOWN'  RLHRTS 

55  IF  LOH-1.  FOR  EACH  CREW  IN  SHOP  (MfllNT. UNIT)  WITH  MISSION (CREW) -flUTO 

56  RNO  OCCUPATION (CREW)  NE  DEAD.  DO 

57  RDO  1.  TO  N. FOLKS  (CREW)  GO  OUTN   LOOP 

58  'OUTN'   ALWAYS 

59  FOR  EACH  REPAIR  IN  EV. S  (I . REPAIR)  WITH  LEV. REP  (REPAIR) =MAINT. UNIT  AND 

60  LOOP.CH (SPEC. REP (REPAIR)  )-0.  DO 

61  CANCEL  THE  REPAIR 

62  LET  LOOP.CH  (SPEC. REP  (REPAIR)  )=»! 

63  RESCHEDULE  THE  REPAIR  AT  TIME.  A  (REPAIR)  ♦0.0112 
6<1  LOOP 

65  FOR  EACH  JOB  IN  ARMAMENT  (MAINT. UNIT)  LET  LOOP.CH  (JOB) -0 

66  FOR  EACH  JOB  IN  AUTOMOTIVE  (MAINT. UNIT)  LET  LOOP. CH  (JOB) =0 

67  FOR  EACH  DIAGNOSIS  IN  EV. S  II . DIAGNOSIS)  WITH  LEV. DIRG  (DIAGNOSIS) =MAINT. UNIT 

68  AND  LOOP. CH(SPEC.0IA6(DIRGNQSIS))>0.  DO 

69  CANCEL  THE  DIAGNOSIS 

70  LET  LOOP.CH (SPEC. DIAG  (DIAGNOSIS) )=1 

71  RESCHEDULE  THE  DIAGNOSIS  AT  TIME. A (DIAGNOSIS) +0.042 

72  LOOP 

73  FOR  EACH  DIAGNOSIS  IN  EV.S  (I. DIAGNOSIS)  WITH  LEV. DIAG (DIAGNOSIS)  >HAINT. UNIT 
7i|  LET  LOOP.CH  (SPEC. DIAG  (DIAGNOSIS)  )>0 

75  LET  MfllNT. UNIT-LEV. ATT 

76  LET  LEV. MOVE-MfllNT. UNIT 

77  IF  NM. FOLKS  (MfllNT. UNIT)  LE  1. 

78  FOR  EACH  JOB  IN  WS. QUEUE  (MAINT. UNIT)  WITH  MOB. DAM  (JOB) >0. .  00 

79  REMOVE  JOB  FROM  WS. QUEUE (MAINT. UNIT) 

80  LET  SPEC. JOB- JOB 

81  SCHEDULE  fl  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. HOVE  IN  (BETA.F  (A  (7, 1) , 

82  fl(7.2).9)«(T.ACTI0N(7.3)-T.flCTION{7.1)))*T.ACTI0N(7.1)  HOURS 

83  IF  JOB  IS  NOT  IN  WT. QUEUE 

8U  FILE  JOB  IN  WT. QUEUE  (MAINT. UNIT) 

85  ALWAYS 

86  FOR  EACH  REPAIR  IN  EV.S  (I .REPAIR)  WITH  SPEC. REP-JOB.  DO 

87  CANCEL  THE  REPAIR  LET  OCCUPATION  (A. CREW) -IDLE 

68  IF  JOB  IS  IN  ARMAMENT  REMOVE  JOB  FROM  ARMAMENT  ALWAYS 

89  LET  CREW-fl.CREW  DESTROY  THE  REPAIR  LOOP 

90  LOOP 

91  FOR  EACH  JOB  IN  WP. QUEUE  (MAINT. UNIT)  WITH  MOB. DAM  (JOB) >0. ,  DO 

92  REMOVE  JOB  FROM  WP. QUEUE (MAINT . UNIT) 

93  FOR  EACH  PARTS. COME  IN  EV. S  (I .PARTS. COME)  WITH  SPEC. PART- JOB 
911  CANCEL  THE  PARTS.  COME 

95  LET  SPEC. JOB- JOB 

96  SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA. F (A (7. 1) , 

97  fl(7,2)  ,9)«(T.ACTI0N(7.3)-T.ACTION(7.1)))*T.ACTI0N(7,l)  HOURS 

98  FILE  JOB  IN  HT. QUEUE (MAINT. UNIT) 

99  LOOP 

100  FOR  EACH  JOB  IN  WI .QUEUE  (MAINT. UNIT)  WITH  MOB. DAM  (JOB) >0. ,  00 
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101  REMOVE  THE  JOB  FROM  MI .QUEUE  (HAINT. UNIT) 

102  LET  SPEC. JOB- JOB 

103  SCHEDULE  fl  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETfl.F  (fl  (7. 1) . 
lOV  fl(7,21  ,9)»«(T.fiCTI0N(7,3)-T.flCTiaN(7.1)  ))  ♦T.fiCTI0N(7.1)  HOURS 

105  FILE  JOB  IN  HT. QUEUE  (MRINT. UNIT) 

106  LOOP 

107  FOR  ERCH  OIRGNOSIS  IN  EV. S (I .DIRGNOSIS)  WITH  LEV. OIflG»HRlNT. UNIT.  00 

108  LET  JOB-SPEC. OIRG(OIRGNOSIS) 

109  IF  HOB.DflM(JOB)>0.  CANCEL  THE  DIAGNOSIS  DESTROY  THE  DIAGNOSIS 

110  ROD  1  TO  INSPECTOR  (MAINT. UNIT) 

111  LET  SPEC. JOB* JOB 

112  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA. F  (A  (7. 1) . 

113  flC7.2)  ,9)«(T.ACTI0N(7,3)-T.ACTI0N(7,1)))*T.ACTI0N(7.1)  HOURS 
11«  FILE  JOB  IN  HT. QUEUE  (MAINT. UNIT) 

lis  flLHATS  LOOP 

116  ALWATS 

117  IF  NF.FaLKS(MAlNT.UNlT)  LE  1. 

118  FOR  EACH  JOB  IN  HS. QUEUE  (MAINT. UNIT)  HITH   FP.DAM  (JOB) >0. .  DO 

119  REMOVE  JOB  FROM  HS. QUEUE (MAINT. UNI T) 

120  LET  SPEC. JOB- JOB 

121  SCHEDULE  A  MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA. F  (A  (7, 1) . 

122  fl(7,2)  .9)««(T.ACTI0N(7.3)-T.ACTI0N(7,l)))*T.flCTI0N(7.1)  HOURS 

123  IF  JOB  IS  NOT  IN  HT. QUEUE 

12V  FILE  JOB  IN  HT. QUEUE  (MAINT. UNIT) 

125  ALHRTS 

126  IF  JOB  IS  IN  AUTOMOTIVE  REMOVE  JOB  FROM  AUTOMOTIVE  ALWAYS 

127  FOR  EACH  REPAIR  IN  EV.S  (I .REPAIR)  WITH  SPEC. REP= JOB,  DO 

128  CANCEL  THE  REPAIR  LET  OCCUPATION (A. CREW) -IDLE 

129  DESTROT  THE  REPAIR  LOOP 

130  LOOP 

131  FOR  EACH  JOB  IN  HP. QUEUE  (MAINT. UNIT)  WITH  FP.DAM  (JOB) >0. .  DO 

132  REMOVE  JOB  FROM  HP. QUEUE (MAINT. UNIT) 

133  FOR  EACH  PARTS. COME  IN  EV.S  (I .PARTS. COHE)  HiTH  SPEC. PART-JOB 
13U  CANCEL  THE  PARTS. COME 

135  LET  SPEC. JOB- JOB 

136  SCHEDULE  A  HOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA. F (A  (7. 1) . 

137  fl  (7. 2J  ,  9)  •«  (T .  ACT  I  ON  (7,  3)  -T .  ACT  I  ON  (7, 1)  )  )  ♦T .  ACT  I  ON  (7,  1 )  HOURS 

138  FILE  JOB  IN  HT. QUEUE  (MAINT. UNIT) 

139  LOOP 

140  FOR  EACH  JOB  IN  HI .QUEUE  (MAINT. UNIT)  WITH  FP.DAM  (JOB) >0. .  00 
mi  REMOVE  THE  JOB  FROM  HI  .QUEUE  (MAINT. UNIT) 

1112  LET  SPEC.  JOB- JOB 

m3  SCHEDULE  fl  MOVE. REAR  GIVEN  SPEC.  JOB  AND  LEV. MOVE  IN  (BETA.  F  (A  (7.  1)  . 

1V«  fl(7,2)  ,9)M(T.ACTI0N(7,3)-T.ACTI0N(7,1)))*T.ACTI0N(7,1)  HOURS 

IVS  FILE  JOB  IN  HT. QUEUE  (MAINT. UNIT) 

1U6  LOOP 

1U7  FOR  EACH  DIAGNOSIS  IN  EV.S  (I .DIAGNOSIS)  HITH  LEV. DIAG-MAINT. UNIT.  DO 

1X8  LET  JOB-SPEC. DIAG (DIAGNOSIS) 

1U9  IF  FP.DAM  (JOB) >0.  CANCEL  THE  DIAGNOSIS  DESTROY  THE  DIAGNOSIS 

ISO  ROD  1  TO  INSPECTOR  (HAINT. UNIT) 
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151 

LET 

152 

SCHE! 

153 

R( 

1511 

FILE 

155 

flLMRYS 

156 

RLWflTS 

157 

RETURN 

158 

END 

SPEC. JOB= JOB 

DULE  ft   MOVE. REAR  GIVEN  SPEC. JOB  AND  LEV. MOVE  IN  (BETA. F  (fl  (7. 1) , 
fl(7.2)  ,9)»«(T.ACTI0N(7.3)-T.flCTI0N(7.n))*T.ACTI0N(7,l)  HOURS 

JOB  IN  MT. QUEUE  (HAINT. UNIT) 

LOOP 
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1  ROUTINE  TO  COMP. TIMES 

2  DEFINE  I  RNO  J  RS  VRRIRBLES 

3  DEFINE  B  RND  MU  RS  RERL  VRRIRBLES 
U  PRINT  3  LINES  RS  FOLLOWS 

5 

6  INPUT  TIME  PRRRMETERS 

7 

8  FOR  I-l  TO  8.  DO 

9  FOR  J-1  TO  3  READ  T.RCTION  (I , J) 

10  LET  B=»  (T.RCTION  (1, 2) -T.RCTION  (I.  m/ (T.RCTION  (I.  3) -T.RCTION  (I.  D) 

11  LET  MU'((il.O>*B)-»  1.01/6.0 

12  LET  fid,  II*  (  (MU»«x21»«  (1.0-MUl  x36.0) -MU-l.G 

13  LET  fl(I,21-((fl(I,l)-»1.01/MU) -R(I,1)-1.0 

IV  PRINT  1  LINE  HITH  I.  Rd.ll,  R(I.2l,  T.  RCTIQN  (1 .  11  .  T.RCTION  (1 ,21  , 

15  T.RCTI0N(I.3l  THUS 

16  I»»«   fl  (11  aMMKn,  »<»<   R  (21  =»<»<»«»«.  »<»<   T.R  (11  =»<•«.  Kx   T .  R  (2)  =«»« .  »«*   T.R  (3)  »»<»<.  »<•« 

17  LOOP 

18  RETURN 

19  END 
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1  ROUTINE  INIT. PRINT 

2  PRINT  13  LINES  WITH  P. TANK,  P. MOB.  N.BNS.  P.FIX.FHD.  PR. HAVE. PARTS. FWD, 

3  P. CO. FIX,  PR. REAR. HAVE. PARTS  AS  FOLLOMS 
U 

5  INPUT  PARAMETERS 

6 

7  THE  PROPORTION  OF  JOBS  THAT  ARE  TANKS  IS  .mhhm 

B  THE  REST  ARE  APC'S 

9  THE  PROPORTION  OF  SYSTEM  FAILURES  THAT  ARE  AUTOMOTIVE  IS  .».«»«« 

10  THE  REST  ARE  ARMAMENT  JOBS 

11  THERE  ARE  m  SUPPORTED  BATTALIONS  IN  THE  BRIGADE 

12  THE  PERCENTAGE  OF  DAMAGE  THAT  CAN  BE  FIXED  FORHARO  IS  .mmmm 

13  THE  PROBABILITY  THAT  THE  FORWARD  DET.  WILL  HAVE  THE  PARTS  IS  .«.««* 
l«l  THE  PERCENTAGE  OF  DAMAGE  THAT  CAN  BE  FIXED  AT  THE  COMPANY  IS  .Humu 
15  THE  PROBABILITY  THAT  THE  COMPANY  HAS  THE  PARTS  IS  .xx-h 

16 

17  PRINT  26  LINES  WITH  EX. RAT,  BZERO,  RZERO,  BP,  R.2ECH,  SPACE. ECH, 

18  T6T.PRI,  PR. INC. ID,  LS.  REC.NUM,  SELF. LIKE,  UNREC,  TH,  MCPD.  CCSL.  CCSU, 

19  MTTF,  LEAD. TIME.  SETUP. TIME.  CON. SPEED.  B.DIST,  PK.PERS  THUS 
20 

21  BATTLE  AND  RECOVERY  INPUT  PARAMETERS 

22 

23  EXCHANGE  RATIO  AT  BEGINNING  OF  BATTLE  m.mmm 

2<4  BLUE  FORCE  LEVEL  AT  START  OF  BATTLE   «•«•«. 

25  RED  FORCE  LEVEL  AT  START  OF  BATTLE  hhh. 

26  RED  BREAK  POINT  IS  m.mm  SURVIVING 

27  RED  SECOND  ECHELON  ADVANCE  RATE  mm.h  KM/HR 

28  ECHELON  SPACING  mm.  KM 

29  RECOVERY  VEHICLE  TARGET  PRIORITY   m 

30  PROBABILITY  OF  INCORRECT  IDENTIFICATION  OF  RECOVERY  VEHICLE  .nn 

31  PROBABILITY  OF  LINE  OF  SIGHT  .mm 

32  NUMBER  OF  RECOVERY  VEHICLES  AT  START   mm 

33  PROPORTION  OF  SELF  AND  LIKE  RECOVERY   .mm 
SU  PROPORTION  OF  UNRECOVERABLE  VEHICLES   .mm 

35  EXPECTED  HOOKUP  TIME  mhk.m  HOURS 

36  DISTANCE  FROM  BATTLE  SITE  TO  MCP  AT  START  OF  BATTLE   m«  KM 

37  CROSS  COUNTRY  SPEED  LOADED  m«.«  KH/HR 

38  CROSS  COUNTRY  SPEED  UNLOADED  mm.h  KM/HR 

39  MEAN  TIME  BETWEEN  SYSTEM  FAILURES   mhm.m  OPERATING  HOURS 
«10  WARNING  TIME  BEFORE  START  OF  BATTLE  mmm  HOURS 

111  TIME  FOR  SETUP  AFTER  MOVE   «m«  MINUTES 

•12  CONVOY  SPEED  DURING  MOVE  mm.  mm  KM/HR 

U3  BREAKPOINT  DISTANCE  AT  WHICH  DET.  MOVES   mm  KM 

UU  PROBABILITY  OF  PERSONNEL  CASUALTY  IN  ATTACK   m.mm 

45 

116  RETURN 

V7  END 
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1  ROUTINE  GflMMfl.F  (MEAN, K, STREAM) 

2  DEFINE  MEflN.K.KK.I.Z.fl.B.D.E.X.T  AND  M  AS  REAL  VARIABLES 

3  DEFINE  STREAM  AS  AN  INTEGER  VARIABLE 
U  IF  MEAN  LE  0..  LET  ERR.F-mS  ELSE 

5  IF  K  LE  0.0  LET  ERR.F-US  ELSE 

6  LET  Z-0. 

7  REGARDLESS  ALMATS 

8  LET  KK-TRUNC.F (K) 

9  LET  D-K-KK 

20  IF  KK»0.   GO  TO  BETA 

11  ELSE  LET  E«1.0 

12  FOR  I-l  TO  KK  LET  E=E»«RANDOM.F  (STREAM) 

13  LET  Z— LOG. E. FIE) 

14  IF  D'O.   RETURN  WITH  Zm  (HEAN/K)   ELSE 

15  'BETA* 

16  LET  A-l.O/D  LET  B=l . 0/ (1 .0-D) 

17  'NEXT' 

18  LET  X»RAN00M.F  (STREAM)  »«««A 

19  LET  T-RANDOM.F  (STREAM) ««B*X 

20  IF  Y  LE  1.0  GO  OUT 

21  ELSE  GO  TO  NEXT 

22  'OUT' 

23  LET  H-X/T 

2U  LET  T— LOG. E.F  (RANDOM. F  (STREAM)) 

25  RETURN  WITH  (Z-»W»«T)  x  (HEAN/K) 

26  END 
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